Developer CD Series 1990 September: Essentials 4

home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1990 September: Essentials 4 / ADC Developer CD (1990-09) [Essentials 4]_iso / Developer Essentials 4.iso / d e v e l o p / develop 1 code / dynamo / rt.a < prev next >
MacBinary | 1989-12-10 | 18.5 KB | [TEXT/MPS ]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`10%`	dexvert	Jesper Olsen Module `(music/jesperOlsen)`	magic	Supported
`1%`	dexvert	System V 64-bit library `(executable/systemV64BitLibrary)`	ext	Unsupported
`1%`	dexvert	COFF Library `(other/coffLibrary)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	TTComp archive data, binary, 1K dictionary	default (weak)
`99%`	file	MacBinary II, inited, ID 0x5147, Sun Dec 10 13:43:28 1989, modified Sun Dec 10 13:43:28 1989, creator 'MPS ', type ASCII, 18356 bytes "rt.a" , at 0x4834 382 bytes resource	default (weak)
`98%`	file	data	default
`49%`	TrID	Macintosh plain text (MacBinary)	default
`33%`	TrID	TTComp archive compressed (bin-1K)	default (weak)
`16%`	TrID	MacBinary 2	default (weak)
`0%`	TrID	Sybase iAnywhere database files	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 04 72 74 2e 61 00 00 | 00 00 00 00 00 00 00 00 |..rt.a..|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 01 40 51 |.TEXTMPS| .....@Q|
|00000050| 47 00 00 00 00 47 b4 00 | 00 01 7e a1 a8 54 50 a1 |G....G..|..~..TP.|
|00000060| a8 54 50 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.TP.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 ba dc 00 00 |........|........|
|00000080| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000090| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000b0| 2a 2a 2a 2a 2a 2a 2a 0d | 2a 09 09 09 09 09 09 2a |*******.|*......*|
|000000c0| 0d 2a 20 44 59 4e 41 4d | 4f 09 09 09 09 09 09 2a |.* DYNAM|O......*|
|000000d0| 0d 2a 09 09 09 09 09 09 | 2a 0d 2a 20 41 70 70 6c |.*......|*.* Appl|
|000000e0| 65 20 49 49 20 38 2d 62 | 69 74 20 72 75 6e 74 69 |e II 8-b|it runti|
|000000f0| 6d 65 20 6c 69 62 72 61 | 72 79 20 72 6f 75 74 69 |me libra|ry routi|
|00000100| 6e 65 73 2e 09 09 2a 0d | 2a 20 43 6f 70 79 72 69 |nes...*.|* Copyri|
|00000110| 67 68 74 20 28 43 29 20 | 31 39 38 39 20 41 70 70 |ght (C) |1989 App|
|00000120| 6c 65 20 43 6f 6d 70 75 | 74 65 72 2e 09 09 2a 0d |le Compu|ter...*.|
|00000130| 2a 09 09 09 09 09 09 2a | 0d 2a 20 57 72 69 74 74 |*......*|.* Writt|
|00000140| 65 6e 20 62 79 20 45 72 | 69 63 20 53 6f 6c 64 61 |en by Er|ic Solda|
|00000150| 6e 2c 20 41 70 70 6c 65 | 20 49 49 20 44 54 53 09 |n, Apple| II DTS.|
|00000160| 09 2a 0d 2a 09 09 09 09 | 09 09 2a 0d 2a 2a 2a 2a |.*.*....|..*.****|
|00000170| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000180| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000190| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001a0| 2a 2a 2a 0d 0d 09 09 69 | 6e 63 6c 75 64 65 09 27 |***....i|nclude.'|
|000001b0| 73 79 73 2e 65 71 75 27 | 0d 09 09 69 6e 63 6c 75 |sys.equ'|...inclu|
|000001c0| 64 65 09 27 61 70 70 2e | 63 6f 6e 66 69 67 27 0d |de.'app.|config'.|
|000001d0| 0d 76 73 6c 09 09 65 71 | 75 09 76 61 72 73 74 61 |.vsl..eq|u.varsta|
|000001e0| 72 74 0d 76 73 68 09 09 | 65 71 75 09 76 61 72 73 |rt.vsh..|equ.vars|
|000001f0| 74 61 72 74 2b 68 69 62 | 79 74 65 0d 0d 2a 2a 2a |tart+hib|yte..***|
|00000200| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0d |********|*******.|
|00000210| 0d 09 09 65 78 70 6f 72 | 74 09 72 74 72 65 73 65 |...expor|t.rtrese|
|00000220| 74 0d 72 74 72 65 73 65 | 74 09 09 70 72 6f 63 0d |t.rtrese|t..proc.|
|00000230| 09 09 65 78 70 6f 72 74 | 09 6e 75 6d 74 6f 63 6f |..export|.numtoco|
|00000240| 70 79 2c 20 63 68 72 68 | 69 62 69 74 6f 6e 2c 20 |py, chrh|ibiton, |
|00000250| 63 68 72 68 69 62 69 74 | 6f 66 66 0d 09 09 65 78 |chrhibit|off...ex|
|00000260| 70 6f 72 74 09 73 69 67 | 6e 2c 20 72 65 61 64 65 |port.sig|n, reade|
|00000270| 6e 64 63 68 72 2c 20 68 | 65 78 70 61 64 63 68 72 |ndchr, h|expadchr|
|00000280| 2c 20 70 61 64 68 65 78 | 0d 09 09 6c 64 79 09 23 |, padhex|...ldy.#|
|00000290| 32 35 35 0d 09 09 73 74 | 79 09 6e 75 6d 74 6f 63 |255...st|y.numtoc|
|000002a0| 6f 70 79 0d 09 09 73 74 | 79 09 63 68 72 68 69 62 |opy...st|y.chrhib|
|000002b0| 69 74 6f 66 66 0d 09 09 | 69 6e 79 0d 09 09 73 74 |itoff...|iny...st|
|000002c0| 79 09 63 68 72 68 69 62 | 69 74 6f 6e 0d 09 09 73 |y.chrhib|iton...s|
|000002d0| 74 79 09 73 69 67 6e 0d | 09 09 73 74 79 09 72 65 |ty.sign.|..sty.re|
|000002e0| 61 64 65 6e 64 63 68 72 | 0d 09 09 6c 64 61 09 23 |adendchr|...lda.#|
|000002f0| 27 30 27 0d 09 09 73 74 | 61 09 68 65 78 70 61 64 |'0'...st|a.hexpad|
|00000300| 63 68 72 0d 09 09 6c 73 | 72 09 70 61 64 68 65 78 |chr...ls|r.padhex|
|00000310| 0d 09 09 72 74 73 0d 6e | 75 6d 74 6f 63 6f 70 79 |...rts.n|umtocopy|
|00000320| 09 64 63 2e 62 09 32 35 | 35 09 09 3b 57 69 6c 6c |.dc.b.25|5..;Will|
|00000330| 20 62 65 20 73 65 74 20 | 62 61 63 6b 20 74 6f 20 | be set |back to |
|00000340| 32 35 35 20 61 66 74 65 | 72 0d 09 09 09 09 09 3b |255 afte|r......;|
|00000350| 65 76 65 72 79 20 73 74 | 72 69 6e 67 20 63 6f 70 |every st|ring cop|
|00000360| 79 20 6f 72 20 61 70 70 | 65 6e 64 2e 0d 63 68 72 |y or app|end..chr|
|00000370| 68 69 62 69 74 6f 66 66 | 09 64 63 2e 62 09 24 46 |hibitoff|.dc.b.$F|
|00000380| 46 0d 63 68 72 68 69 62 | 69 74 6f 6e 09 64 63 2e |F.chrhib|iton.dc.|
|00000390| 62 09 30 0d 73 69 67 6e | 09 09 64 63 2e 62 09 30 |b.0.sign|..dc.b.0|
|000003a0| 0d 72 65 61 64 65 6e 64 | 63 68 72 09 64 63 2e 62 |.readend|chr.dc.b|
|000003b0| 09 30 0d 68 65 78 70 61 | 64 63 68 72 09 64 63 2e |.0.hexpa|dchr.dc.|
|000003c0| 62 09 27 30 27 0d 70 61 | 64 68 65 78 09 09 64 63 |b.'0'.pa|dhex..dc|
|000003d0| 2e 62 09 30 0d 09 09 65 | 6e 64 70 0d 0d 2a 2a 2a |.b.0...e|ndp..***|
|000003e0| 0d 0d 09 09 65 78 70 6f | 72 74 09 68 69 62 69 74 |....expo|rt.hibit|
|000003f0| 63 68 72 73 0d 68 69 62 | 69 74 63 68 72 73 09 50 |chrs.hib|itchrs.P|
|00000400| 52 4f 43 0d 0d 09 09 6c | 64 61 09 23 24 38 30 09 |ROC....l|da.#$80.|
|00000410| 09 3b 57 65 20 64 6f 6e | 27 74 20 6e 65 65 64 20 |.;We don|'t need |
|00000420| 74 6f 20 73 65 74 20 63 | 68 72 68 69 62 69 74 6f |to set c|hrhibito|
|00000430| 66 66 0d 09 09 73 74 61 | 09 63 68 72 68 69 62 69 |ff...sta|.chrhibi|
|00000440| 74 6f 6e 09 3b 62 65 63 | 61 75 73 65 20 69 74 20 |ton.;bec|ause it |
|00000450| 77 69 6c 6c 20 65 69 74 | 68 65 72 20 62 65 20 61 |will eit|her be a|
|00000460| 20 24 37 46 0d 09 09 72 | 74 73 09 09 09 3b 6f 72 | $7F...r|ts...;or|
|00000470| 20 24 46 46 2c 20 61 6e | 64 20 69 6e 20 65 69 74 | $FF, an|d in eit|
|00000480| 68 65 72 20 63 61 73 65 | 0d 09 09 65 6e 64 70 09 |her case|...endp.|
|00000490| 09 09 3b 63 68 72 68 69 | 62 69 74 6f 6e 20 77 69 |..;chrhi|biton wi|
|000004a0| 6c 6c 20 74 75 72 6e 20 | 69 74 20 6f 6e 20 61 6e |ll turn |it on an|
|000004b0| 79 77 61 79 2e 0d 0d 2a | 2a 2a 0d 0d 09 09 65 78 |yway...*|**....ex|
|000004c0| 70 6f 72 74 09 6c 6f 77 | 62 69 74 63 68 72 73 0d |port.low|bitchrs.|
|000004d0| 6c 6f 77 62 69 74 63 68 | 72 73 09 50 52 4f 43 0d |lowbitch|rs.PROC.|
|000004e0| 0d 09 09 61 73 6c 09 63 | 68 72 68 69 62 69 74 6f |...asl.c|hrhibito|
|000004f0| 6e 09 3b 57 61 73 20 61 | 20 24 30 30 20 6f 72 20 |n.;Was a| $00 or |
|00000500| 24 38 30 2c 20 73 6f 20 | 74 68 69 73 20 6d 61 6b |$80, so |this mak|
|00000510| 65 73 20 69 74 20 24 30 | 30 2e 0d 09 09 6c 64 61 |es it $0|0....lda|
|00000520| 09 23 24 37 46 0d 09 09 | 73 74 61 09 63 68 72 68 |.#$7F...|sta.chrh|
|00000530| 69 62 69 74 6f 66 66 0d | 09 09 72 74 73 0d 09 09 |ibitoff.|..rts...|
|00000540| 65 6e 64 70 0d 0d 2a 2a | 2a 0d 0d 09 09 65 78 70 |endp..**|*....exp|
|00000550| 6f 72 74 09 72 65 67 63 | 68 72 73 0d 72 65 67 63 |ort.regc|hrs.regc|
|00000560| 68 72 73 09 09 50 52 4f | 43 0d 0d 09 09 61 73 6c |hrs..PRO|C....asl|
|00000570| 09 63 68 72 68 69 62 69 | 74 6f 6e 0d 09 09 6c 64 |.chrhibi|ton...ld|
|00000580| 61 09 23 24 46 46 0d 09 | 09 73 74 61 09 63 68 72 |a.#$FF..|.sta.chr|
|00000590| 68 69 62 69 74 6f 66 66 | 0d 09 09 72 74 73 0d 09 |hibitoff|...rts..|
|000005a0| 09 65 6e 64 70 0d 0d 2a | 2a 2a 0d 0d 09 09 65 78 |.endp..*|**....ex|
|000005b0| 70 6f 72 74 09 72 74 63 | 6f 75 74 0d 72 74 63 6f |port.rtc|out.rtco|
|000005c0| 75 74 09 09 70 72 6f 63 | 0d 0d 09 09 73 74 78 09 |ut..proc|....stx.|
|000005d0| 40 6b 65 65 70 78 0d 09 | 09 61 6e 64 09 63 68 72 |@keepx..|.and.chr|
|000005e0| 68 69 62 69 74 6f 66 66 | 0d 09 09 6f 72 61 09 63 |hibitoff|...ora.c|
|000005f0| 68 72 68 69 62 69 74 6f | 6e 0d 09 09 6a 73 72 09 |hrhibito|n...jsr.|
|00000600| 24 46 44 45 44 0d 09 09 | 6c 64 78 09 40 6b 65 65 |$FDED...|ldx.@kee|
|00000610| 70 78 0d 09 09 72 74 73 | 0d 40 6b 65 65 70 78 09 |px...rts|.@keepx.|
|00000620| 09 64 63 2e 62 09 30 0d | 09 09 65 6e 64 70 0d 0d |.dc.b.0.|..endp..|
|00000630| 2a 2a 2a 0d 0d 09 09 65 | 78 70 6f 72 74 09 77 72 |***....e|xport.wr|
|00000640| 69 74 65 0d 77 72 69 74 | 65 09 09 70 72 6f 63 0d |ite.writ|e..proc.|
|00000650| 09 09 70 6c 61 0d 09 09 | 73 74 61 09 40 67 65 74 |..pla...|sta.@get|
|00000660| 63 68 72 2b 31 0d 09 09 | 70 6c 61 0d 09 09 73 74 |chr+1...|pla...st|
|00000670| 61 09 40 67 65 74 63 68 | 72 2b 32 0d 09 09 74 78 |a.@getch|r+2...tx|
|00000680| 61 0d 09 09 70 68 61 0d | 40 6c 6f 6f 70 09 09 69 |a...pha.|@loop..i|
|00000690| 6e 63 09 40 67 65 74 63 | 68 72 2b 31 0d 09 09 62 |nc.@getc|hr+1...b|
|000006a0| 6e 65 09 40 67 65 74 63 | 68 72 0d 09 09 69 6e 63 |ne.@getc|hr...inc|
|000006b0| 09 40 67 65 74 63 68 72 | 2b 32 0d 40 67 65 74 63 |.@getchr|+2.@getc|
|000006c0| 68 72 09 09 6c 64 61 09 | 24 32 30 30 30 09 09 3b |hr..lda.|$2000..;|
|000006d0| 41 64 64 72 65 73 73 20 | 6d 6f 64 69 66 69 65 64 |Address |modified|
|000006e0| 2e 0d 09 09 62 65 71 09 | 40 65 78 69 74 0d 09 09 |....beq.|@exit...|
|000006f0| 6a 73 72 09 72 74 63 6f | 75 74 0d 09 09 6a 6d 70 |jsr.rtco|ut...jmp|
|00000700| 09 40 6c 6f 6f 70 0d 40 | 65 78 69 74 09 09 70 6c |.@loop.@|exit..pl|
|00000710| 61 0d 09 09 74 61 78 0d | 09 09 6c 64 61 09 40 67 |a...tax.|..lda.@g|
|00000720| 65 74 63 68 72 2b 32 0d | 09 09 70 68 61 0d 09 09 |etchr+2.|..pha...|
|00000730| 6c 64 61 09 40 67 65 74 | 63 68 72 2b 31 0d 09 09 |lda.@get|chr+1...|
|00000740| 70 68 61 0d 09 09 72 74 | 73 0d 09 09 65 6e 64 70 |pha...rt|s...endp|
|00000750| 0d 0d 2a 2a 2a 0d 0d 09 | 09 65 78 70 6f 72 74 09 |..***...|.export.|
|00000760| 77 72 69 74 65 63 72 0d | 77 72 69 74 65 63 72 09 |writecr.|writecr.|
|00000770| 09 70 72 6f 63 0d 09 09 | 74 78 61 0d 09 09 70 68 |.proc...|txa...ph|
|00000780| 61 0d 09 09 6c 64 61 09 | 23 31 33 0d 09 09 6a 73 |a...lda.|#13...js|
|00000790| 72 09 72 74 63 6f 75 74 | 0d 09 09 70 6c 61 0d 09 |r.rtcout|...pla..|
|000007a0| 09 74 61 78 0d 09 09 72 | 74 73 0d 09 09 65 6e 64 |.tax...r|ts...end|
|000007b0| 70 0d 0d 2a 2a 2a 0d 0d | 09 09 65 78 70 6f 72 74 |p..***..|..export|
|000007c0| 09 77 72 63 73 74 72 0d | 77 72 63 73 74 72 09 09 |.wrcstr.|wrcstr..|
|000007d0| 70 72 6f 63 0d 09 09 73 | 74 61 09 40 67 65 74 63 |proc...s|ta.@getc|
|000007e0| 68 72 2b 31 0d 09 09 73 | 74 79 09 40 67 65 74 63 |hr+1...s|ty.@getc|
|000007f0| 68 72 2b 32 0d 09 09 74 | 78 61 0d 09 09 70 68 61 |hr+2...t|xa...pha|
|00000800| 0d 40 67 65 74 63 68 72 | 09 09 6c 64 61 09 24 32 |.@getchr|..lda.$2|
|00000810| 30 30 30 09 09 3b 41 64 | 64 72 65 73 73 20 6d 6f |000..;Ad|dress mo|
|00000820| 64 69 66 69 65 64 2e 09 | 09 0d 09 09 62 65 71 09 |dified..|....beq.|
|00000830| 40 65 78 69 74 0d 09 09 | 6a 73 72 09 72 74 63 6f |@exit...|jsr.rtco|
|00000840| 75 74 0d 09 09 69 6e 63 | 09 40 67 65 74 63 68 72 |ut...inc|.@getchr|
|00000850| 2b 31 0d 09 09 62 6e 65 | 09 40 67 65 74 63 68 72 |+1...bne|.@getchr|
|00000860| 0d 09 09 69 6e 63 09 40 | 67 65 74 63 68 72 2b 32 |...inc.@|getchr+2|
|00000870| 0d 09 09 62 6e 65 09 40 | 67 65 74 63 68 72 09 09 |...bne.@|getchr..|
|00000880| 3b 41 6c 77 61 79 73 2e | 0d 40 65 78 69 74 09 09 |;Always.|.@exit..|
|00000890| 70 6c 61 0d 09 09 74 61 | 78 0d 09 09 72 74 73 0d |pla...ta|x...rts.|
|000008a0| 09 09 65 6e 64 70 0d 0d | 2a 2a 2a 0d 2a 2a 2a 0d |..endp..|***.***.|
|000008b0| 2a 2a 2a 0d 0d 09 09 65 | 78 70 6f 72 74 09 73 69 |***....e|xport.si|
|000008c0| 67 6e 65 64 0d 73 69 67 | 6e 65 64 09 09 70 72 6f |gned.sig|ned..pro|
|000008d0| 63 0d 09 09 73 65 63 0d | 09 09 72 6f 72 09 73 69 |c...sec.|..ror.si|
|000008e0| 67 6e 0d 09 09 72 74 73 | 0d 09 09 65 6e 64 70 0d |gn...rts|...endp.|
|000008f0| 0d 2a 2a 2a 0d 0d 09 09 | 65 78 70 6f 72 74 09 75 |.***....|export.u|
|00000900| 6e 73 69 67 6e 65 64 0d | 75 6e 73 69 67 6e 65 64 |nsigned.|unsigned|
|00000910| 09 09 70 72 6f 63 0d 09 | 09 6c 73 72 09 73 69 67 |..proc..|.lsr.sig|
|00000920| 6e 0d 09 09 72 74 73 0d | 09 09 65 6e 64 70 0d 0d |n...rts.|..endp..|
|00000930| 2a 2a 2a 0d 0d 09 09 65 | 78 70 6f 72 74 09 63 68 |***....e|xport.ch|
|00000940| 6e 67 73 67 6e 0d 63 68 | 6e 67 73 67 6e 09 09 70 |ngsgn.ch|ngsgn..p|
|00000950| 72 6f 63 0d 09 09 6c 64 | 61 09 76 73 6c 2c 78 0d |roc...ld|a.vsl,x.|
|00000960| 09 09 65 6f 72 09 23 24 | 46 46 0d 09 09 63 6c 63 |..eor.#$|FF...clc|
|00000970| 0d 09 09 61 64 63 09 23 | 31 0d 09 09 73 74 61 09 |...adc.#|1...sta.|
|00000980| 76 73 6c 2c 78 0d 09 09 | 6c 64 61 09 76 73 68 2c |vsl,x...|lda.vsh,|
|00000990| 78 0d 09 09 65 6f 72 09 | 23 24 46 46 0d 09 09 61 |x...eor.|#$FF...a|
|000009a0| 64 63 09 23 30 0d 09 09 | 73 74 61 09 76 73 68 2c |dc.#0...|sta.vsh,|
|000009b0| 78 0d 09 09 72 74 73 0d | 09 09 65 6e 64 70 0d 0d |x...rts.|..endp..|
|000009c0| 2a 2a 2a 0d 0d 09 09 65 | 78 70 6f 72 74 09 64 65 |***....e|xport.de|
|000009d0| 63 6f 75 74 6c 0d 64 65 | 63 6f 75 74 6c 09 09 70 |coutl.de|coutl..p|
|000009e0| 72 6f 63 0d 09 09 69 6d | 70 6f 72 74 09 64 65 63 |roc...im|port.dec|
|000009f0| 6f 75 74 0d 09 09 6c 64 | 79 09 23 30 0d 09 09 6a |out...ld|y.#0...j|
|00000a00| 6d 70 09 64 65 63 6f 75 | 74 09 09 3b 6a 6d 70 2c |mp.decou|t..;jmp,|
|00000a10| 20 69 6e 73 74 65 61 64 | 20 6f 66 20 62 65 71 20 | instead| of beq |
|00000a20| 73 6f 20 77 65 20 63 61 | 6e 20 62 65 20 61 20 6c |so we ca|n be a l|
|00000a30| 69 62 2e 0d 09 09 65 6e | 64 70 0d 0d 2a 2a 2a 0d |ib....en|dp..***.|
|00000a40| 0d 09 09 65 78 70 6f 72 | 74 09 76 64 65 63 6f 75 |...expor|t.vdecou|
|00000a50| 74 0d 76 64 65 63 6f 75 | 74 09 09 70 72 6f 63 0d |t.vdecou|t..proc.|
|00000a60| 09 09 65 78 70 6f 72 74 | 09 64 65 63 6f 75 74 0d |..export|.decout.|
|00000a70| 09 09 6c 64 61 09 76 73 | 68 2c 78 0d 09 09 74 61 |..lda.vs|h,x...ta|
|00000a80| 79 0d 09 09 6c 64 61 09 | 76 73 6c 2c 78 0d 0d 64 |y...lda.|vsl,x..d|
|00000a90| 65 63 6f 75 74 09 09 73 | 74 61 09 40 74 65 6d 70 |ecout..s|ta.@temp|
|00000aa0| 6c 0d 09 09 73 74 79 09 | 40 74 65 6d 70 68 0d 09 |l...sty.|@temph..|
|00000ab0| 09 6c 64 61 09 23 27 30 | 27 0d 09 09 73 74 61 09 |.lda.#'0|'...sta.|
|00000ac0| 40 74 65 6d 70 32 0d 09 | 09 74 78 61 0d 09 09 70 |@temp2..|.txa...p|
|00000ad0| 68 61 0d 09 09 62 69 74 | 09 73 69 67 6e 0d 09 09 |ha...bit|.sign...|
|00000ae0| 62 70 6c 09 40 70 6f 73 | 0d 09 09 74 79 61 0d 09 |bpl.@pos|...tya..|
|00000af0| 09 62 70 6c 09 40 70 6f | 73 0d 09 09 6c 64 61 09 |.bpl.@po|s...lda.|
|00000b00| 23 27 2d 27 0d 09 09 6a | 73 72 09 72 74 63 6f 75 |#'-'...j|sr.rtcou|
|00000b10| 74 0d 09 09 6c 64 61 09 | 40 74 65 6d 70 6c 0d 09 |t...lda.|@templ..|
|00000b20| 09 65 6f 72 09 23 24 46 | 46 0d 09 09 63 6c 63 0d |.eor.#$F|F...clc.|
|00000b30| 09 09 61 64 63 09 23 31 | 0d 09 09 73 74 61 09 40 |..adc.#1|...sta.@|
|00000b40| 74 65 6d 70 6c 0d 09 09 | 6c 64 61 09 40 74 65 6d |templ...|lda.@tem|
|00000b50| 70 68 0d 09 09 65 6f 72 | 09 23 24 46 46 0d 09 09 |ph...eor|.#$FF...|
|00000b60| 61 64 63 09 23 30 0d 09 | 09 73 74 61 09 40 74 65 |adc.#0..|.sta.@te|
|00000b70| 6d 70 68 0d 40 70 6f 73 | 09 09 6c 64 78 09 23 34 |mph.@pos|..ldx.#4|
|00000b80| 0d 40 61 09 09 6c 64 61 | 09 23 27 30 27 0d 09 09 |.@a..lda|.#'0'...|
|00000b90| 73 74 61 09 40 74 65 6d | 70 0d 40 62 09 09 6c 64 |sta.@tem|p.@b..ld|
|00000ba0| 61 09 40 74 65 6d 70 6c | 0d 09 09 73 65 63 0d 09 |a.@templ|...sec..|
|00000bb0| 09 73 62 63 09 40 64 65 | 63 6c 2c 78 0d 09 09 74 |.sbc.@de|cl,x...t|
|00000bc0| 61 79 0d 09 09 6c 64 61 | 09 40 74 65 6d 70 68 0d |ay...lda|.@temph.|
|00000bd0| 09 09 73 62 63 09 40 64 | 65 63 68 2c 78 0d 09 09 |..sbc.@d|ech,x...|
|00000be0| 62 63 63 09 40 63 0d 09 | 09 73 74 61 09 40 74 65 |bcc.@c..|.sta.@te|
|00000bf0| 6d 70 68 0d 09 09 73 74 | 79 09 40 74 65 6d 70 6c |mph...st|y.@templ|
|00000c00| 0d 09 09 69 6e 63 09 40 | 74 65 6d 70 0d 09 09 62 |...inc.@|temp...b|
|00000c10| 63 73 09 40 62 0d 40 63 | 09 09 6c 64 61 09 40 74 |cs.@b.@c|..lda.@t|
|00000c20| 65 6d 70 0d 09 09 64 65 | 78 0d 09 09 62 6d 69 09 |emp...de|x...bmi.|
|00000c30| 40 65 09 09 3b 4c 61 73 | 74 20 64 69 67 69 74 20 |@e..;Las|t digit |
|00000c40| 2d 2d 20 70 72 69 6e 74 | 20 6e 6f 20 6d 61 74 74 |-- print| no matt|
|00000c50| 65 72 20 77 68 61 74 2e | 0d 09 09 63 6d 70 09 40 |er what.|...cmp.@|
|00000c60| 74 65 6d 70 32 0d 09 09 | 62 65 71 09 40 61 09 09 |temp2...|beq.@a..|
|00000c70| 3b 44 6f 6e 27 74 20 70 | 72 69 6e 74 20 6c 65 61 |;Don't p|rint lea|
|00000c80| 64 69 6e 67 20 30 27 73 | 2e 0d 09 09 6c 73 72 09 |ding 0's|....lsr.|
|00000c90| 40 74 65 6d 70 32 09 09 | 3b 49 6e 76 61 6c 20 6c |@temp2..|;Inval l|
|00000ca0| 65 61 64 69 6e 67 20 30 | 20 74 65 73 74 2e 0d 09 |eading 0| test...|
|00000cb0| 09 6a 73 72 09 72 74 63 | 6f 75 74 0d 09 09 6a 6d |.jsr.rtc|out...jm|
|00000cc0| 70 09 40 61 0d 40 65 09 | 09 6a 73 72 09 72 74 63 |p.@a.@e.|.jsr.rtc|
|00000cd0| 6f 75 74 0d 09 09 70 6c | 61 0d 09 09 74 61 78 0d |out...pl|a...tax.|
|00000ce0| 09 09 72 74 73 0d 40 64 | 65 63 6c 09 09 64 63 2e |..rts.@d|ecl..dc.|
|00000cf0| 62 09 31 0d 09 09 64 63 | 2e 62 09 31 30 0d 09 09 |b.1...dc|.b.10...|
|00000d00| 64 63 2e 62 09 31 30 30 | 0d 09 09 64 63 2e 62 09 |dc.b.100|...dc.b.|
|00000d10| 31 30 30 30 2d 37 36 38 | 0d 09 09 64 63 2e 62 09 |1000-768|...dc.b.|
|00000d20| 31 30 30 30 30 2d 39 39 | 38 34 0d 40 64 65 63 68 |10000-99|84.@dech|
|00000d30| 09 09 64 63 2e 62 09 31 | 3e 3e 38 0d 09 09 64 63 |..dc.b.1|>>8...dc|
|00000d40| 2e 62 09 31 30 3e 3e 38 | 0d 09 09 64 63 2e 62 09 |.b.10>>8|...dc.b.|
|00000d50| 31 30 30 3e 3e 38 0d 09 | 09 64 63 2e 62 09 31 30 |100>>8..|.dc.b.10|
|00000d60| 30 30 3e 3e 38 0d 09 09 | 64 63 2e 62 09 31 30 30 |00>>8...|dc.b.100|
|00000d70| 30 30 3e 3e 38 0d 40 74 | 65 6d 70 6c 09 09 64 63 |00>>8.@t|empl..dc|
|00000d80| 2e 62 09 30 0d 40 74 65 | 6d 70 68 09 09 64 63 2e |.b.0.@te|mph..dc.|
|00000d90| 62 09 30 0d 40 74 65 6d | 70 09 09 64 63 2e 62 09 |b.0.@tem|p..dc.b.|
|00000da0| 30 0d 40 74 65 6d 70 32 | 09 09 64 63 2e 62 09 30 |0.@temp2|..dc.b.0|
|00000db0| 0d 09 09 65 6e 64 70 0d | 0d 2a 2a 2a 0d 0d 09 09 |...endp.|.***....|
|00000dc0| 65 78 70 6f 72 74 09 68 | 65 78 70 61 64 0d 68 65 |export.h|expad.he|
|00000dd0| 78 70 61 64 09 09 70 72 | 6f 63 0d 09 09 73 74 61 |xpad..pr|oc...sta|
|00000de0| 09 68 65 78 70 61 64 63 | 68 72 0d 09 09 6c 73 72 |.hexpadc|hr...lsr|
|00000df0| 09 70 61 64 68 65 78 0d | 09 09 72 74 73 0d 09 09 |.padhex.|..rts...|
|00000e00| 65 6e 64 70 0d 0d 2a 2a | 2a 0d 0d 09 09 65 78 70 |endp..**|*....exp|
|00000e10| 6f 72 74 09 68 65 78 6e | 6f 70 61 64 0d 68 65 78 |ort.hexn|opad.hex|
|00000e20| 6e 6f 70 61 64 09 09 70 | 72 6f 63 0d 09 09 73 65 |nopad..p|roc...se|
|00000e30| 63 0d 09 09 72 6f 72 09 | 70 61 64 68 65 78 0d 09 |c...ror.|padhex..|
|00000e40| 09 72 74 73 0d 09 09 65 | 6e 64 70 0d 0d 2a 2a 2a |.rts...e|ndp..***|
|00000e50| 0d 0d 09 09 65 78 70 6f | 72 74 09 68 65 78 6f 75 |....expo|rt.hexou|
|00000e60| 74 6c 0d 68 65 78 6f 75 | 74 6c 09 09 70 72 6f 63 |tl.hexou|tl..proc|
|00000e70| 0d 09 09 69 6d 70 6f 72 | 74 09 68 65 78 6f 75 74 |...impor|t.hexout|
|00000e80| 0d 09 09 6c 64 79 09 23 | 30 0d 09 09 63 6c 63 0d |...ldy.#|0...clc.|
|00000e90| 09 09 6a 6d 70 09 68 65 | 78 6f 75 74 2b 31 09 09 |..jmp.he|xout+1..|
|00000ea0| 3b 6a 6d 70 2c 20 69 6e | 73 74 65 61 64 20 6f 66 |;jmp, in|stead of|
|00000eb0| 20 62 65 71 20 73 6f 20 | 77 65 20 63 61 6e 20 62 | beq so |we can b|
|00000ec0| 65 20 61 20 6c 69 62 2e | 0d 09 09 65 6e 64 70 0d |e a lib.|...endp.|
|00000ed0| 0d 2a 2a 2a 0d 0d 09 09 | 65 78 70 6f 72 74 09 76 |.***....|export.v|
|00000ee0| 68 65 78 6f 75 74 0d 76 | 68 65 78 6f 75 74 09 09 |hexout.v|hexout..|
|00000ef0| 70 72 6f 63 0d 09 09 65 | 78 70 6f 72 74 09 68 65 |proc...e|xport.he|
|00000f00| 78 6f 75 74 0d 09 09 69 | 6d 70 6f 72 74 09 68 65 |xout...i|mport.he|
|00000f10| 78 70 61 64 63 68 72 0d | 09 09 6c 64 61 09 76 73 |xpadchr.|..lda.vs|
|00000f20| 68 2c 78 0d 09 09 74 61 | 79 0d 09 09 6c 64 61 09 |h,x...ta|y...lda.|
|00000f30| 76 73 6c 2c 78 0d 0d 68 | 65 78 6f 75 74 09 09 73 |vsl,x..h|exout..s|
|00000f40| 65 63 0d 09 09 73 74 61 | 09 40 74 65 6d 70 6c 0d |ec...sta|.@templ.|
|00000f50| 09 09 74 78 61 0d 09 09 | 70 68 61 0d 09 09 6c 64 |..txa...|pha...ld|
|00000f60| 78 09 23 33 0d 09 09 62 | 63 73 09 40 61 61 0d 09 |x.#3...b|cs.@aa..|
|00000f70| 09 6c 64 78 09 23 31 0d | 09 09 6c 64 79 09 40 74 |.ldx.#1.|..ldy.@t|
|00000f80| 65 6d 70 6c 0d 40 61 61 | 09 09 73 74 79 09 40 74 |empl.@aa|..sty.@t|
|00000f90| 65 6d 70 68 0d 09 09 6c | 64 61 09 70 61 64 68 65 |emph...l|da.padhe|
|00000fa0| 78 0d 09 09 73 74 61 09 | 40 70 61 64 68 65 78 0d |x...sta.|@padhex.|
|00000fb0| 09 09 6c 64 61 09 68 65 | 78 70 61 64 63 68 72 0d |..lda.he|xpadchr.|
|00000fc0| 09 09 73 74 61 09 40 68 | 65 78 70 61 64 63 68 72 |..sta.@h|expadchr|
|00000fd0| 0d 40 6c 6f 6f 70 09 09 | 6c 64 61 09 23 30 0d 09 |.@loop..|lda.#0..|
|00000fe0| 09 6c 64 79 09 23 34 0d | 40 61 09 09 61 73 6c 09 |.ldy.#4.|@a..asl.|
|00000ff0| 40 74 65 6d 70 6c 0d 09 | 09 72 6f 6c 09 40 74 65 |@templ..|.rol.@te|
|00001000| 6d 70 68 0d 09 09 72 6f | 6c 09 61 0d 09 09 64 65 |mph...ro|l.a...de|
|00001010| 79 0d 09 09 62 6e 65 09 | 40 61 0d 09 09 74 61 79 |y...bne.|@a...tay|
|00001020| 0d 09 09 62 6e 65 09 40 | 62 0d 09 09 6c 64 61 09 |...bne.@|b...lda.|
|00001030| 40 70 61 64 68 65 78 0d | 09 09 62 6d 69 09 40 6e |@padhex.|..bmi.@n|
|00001040| 6f 70 61 64 0d 09 09 6c | 64 61 09 40 68 65 78 70 |opad...l|da.@hexp|
|00001050| 61 64 63 68 72 0d 09 09 | 6a 73 72 09 72 74 63 6f |adchr...|jsr.rtco|
|00001060| 75 74 0d 09 09 6a 6d 70 | 09 40 6e 6f 70 61 64 0d |ut...jmp|.@nopad.|
|00001070| 40 62 09 09 6a 73 72 09 | 40 64 6f 6f 6e 65 0d 09 |@b..jsr.|@doone..|
|00001080| 09 6c 73 72 09 40 70 61 | 64 68 65 78 0d 09 09 6c |.lsr.@pa|dhex...l|
|00001090| 64 61 09 23 27 30 27 0d | 09 09 73 74 61 09 40 68 |da.#'0'.|..sta.@h|
|000010a0| 65 78 70 61 64 63 68 72 | 0d 40 6e 6f 70 61 64 09 |expadchr|.@nopad.|
|000010b0| 09 64 65 78 0d 09 09 62 | 6e 65 09 40 6c 6f 6f 70 |.dex...b|ne.@loop|
|000010c0| 0d 09 09 6c 64 61 09 40 | 74 65 6d 70 68 0d 09 09 |...lda.@|temph...|
|000010d0| 6c 73 72 09 61 0d 09 09 | 6c 73 72 09 61 0d 09 09 |lsr.a...|lsr.a...|
|000010e0| 6c 73 72 09 61 0d 09 09 | 6c 73 72 09 61 0d 09 09 |lsr.a...|lsr.a...|
|000010f0| 74 61 79 0d 09 09 70 6c | 61 0d 09 09 74 61 78 0d |tay...pl|a...tax.|
|00001100| 40 64 6f 6f 6e 65 09 09 | 6c 64 61 09 40 68 65 78 |@doone..|lda.@hex|
|00001110| 64 69 67 69 74 2c 79 0d | 09 09 6a 6d 70 09 72 74 |digit,y.|..jmp.rt|
|00001120| 63 6f 75 74 0d 40 68 65 | 78 64 69 67 69 74 09 64 |cout.@he|xdigit.d|
|00001130| 63 2e 62 09 27 30 31 32 | 33 34 35 36 37 38 39 41 |c.b.'012|3456789A|
|00001140| 42 43 44 45 46 27 0d 40 | 70 61 64 68 65 78 09 09 |BCDEF'.@|padhex..|
|00001150| 64 63 2e 62 09 30 0d 40 | 68 65 78 70 61 64 63 68 |dc.b.0.@|hexpadch|
|00001160| 72 09 64 63 2e 62 09 30 | 0d 40 74 65 6d 70 6c 09 |r.dc.b.0|.@templ.|
|00001170| 09 64 63 2e 62 09 30 0d | 40 74 65 6d 70 68 09 09 |.dc.b.0.|@temph..|
|00001180| 64 63 2e 62 09 30 0d 09 | 09 65 6e 64 70 0d 0d 2a |dc.b.0..|.endp..*|
|00001190| 2a 2a 0d 0d 09 09 65 78 | 70 6f 72 74 09 6c 64 79 |**....ex|port.ldy|
|000011a0| 76 61 72 0d 6c 64 79 76 | 61 72 09 09 70 72 6f 63 |var.ldyv|ar..proc|
|000011b0| 0d 09 09 6c 64 61 09 76 | 73 6c 2c 79 0d 09 09 70 |...lda.v|sl,y...p|
|000011c0| 68 61 0d 09 09 6c 64 61 | 09 76 73 68 2c 79 0d 09 |ha...lda|.vsh,y..|
|000011d0| 09 74 61 79 0d 09 09 70 | 6c 61 0d 09 09 72 74 73 |.tay...p|la...rts|
|000011e0| 0d 09 09 65 6e 64 70 0d | 0d 2a 2a 2a 0d 0d 09 09 |...endp.|.***....|
|000011f0| 65 78 70 6f 72 74 09 6d | 75 6c 63 6f 6e 6c 0d 6d |export.m|ulconl.m|
|00001200| 75 6c 63 6f 6e 6c 09 09 | 70 72 6f 63 0d 09 09 69 |ulconl..|proc...i|
|00001210| 6d 70 6f 72 74 09 6d 75 | 6c 63 6f 6e 0d 09 09 6c |mport.mu|lcon...l|
|00001220| 64 79 09 23 30 0d 09 09 | 6a 6d 70 09 6d 75 6c 63 |dy.#0...|jmp.mulc|
|00001230| 6f 6e 09 09 3b 6a 6d 70 | 2c 20 69 6e 73 74 65 61 |on..;jmp|, instea|
|00001240| 64 20 6f 66 20 62 65 71 | 20 73 6f 20 77 65 20 63 |d of beq| so we c|
|00001250| 61 6e 20 62 65 20 61 20 | 6c 69 62 2e 0d 09 09 65 |an be a |lib....e|
|00001260| 6e 64 70 0d 0d 2a 2a 2a | 0d 0d 09 09 65 78 70 6f |ndp..***|....expo|
|00001270| 72 74 09 6d 75 6c 76 61 | 72 0d 6d 75 6c 76 61 72 |rt.mulva|r.mulvar|
|00001280| 09 09 70 72 6f 63 0d 09 | 09 65 78 70 6f 72 74 09 |..proc..|.export.|
|00001290| 6d 75 6c 63 6f 6e 2c 20 | 6d 75 6c 76 61 6c 6c 2c |mulcon, |mulvall,|
|000012a0| 20 6d 75 6c 76 61 6c 68 | 0d 09 09 69 6d 70 6f 72 | mulvalh|...impor|
|000012b0| 74 09 6d 75 6c 74 69 70 | 6c 79 2c 20 73 65 74 63 |t.multip|ly, setc|
|000012c0| 6f 6e 0d 09 09 6a 73 72 | 09 6c 64 79 76 61 72 0d |on...jsr|.ldyvar.|
|000012d0| 0d 6d 75 6c 63 6f 6e 09 | 09 70 68 61 0d 09 09 6c |.mulcon.|.pha...l|
|000012e0| 64 61 09 76 73 6c 2c 78 | 0d 09 09 73 74 61 09 6d |da.vsl,x|...sta.m|
|000012f0| 75 6c 76 61 6c 6c 0d 09 | 09 6c 64 61 09 76 73 68 |ulvall..|.lda.vsh|
|00001300| 2c 78 0d 09 09 73 74 61 | 09 6d 75 6c 76 61 6c 68 |,x...sta|.mulvalh|
|00001310| 0d 09 09 70 6c 61 0d 09 | 09 6a 73 72 09 6d 75 6c |...pla..|.jsr.mul|
|00001320| 74 69 70 6c 79 0d 09 09 | 6a 6d 70 09 73 65 74 63 |tiply...|jmp.setc|
|00001330| 6f 6e 0d 6d 75 6c 76 61 | 6c 6c 09 09 64 63 2e 62 |on.mulva|ll..dc.b|
|00001340| 09 30 0d 6d 75 6c 76 61 | 6c 68 09 09 64 63 2e 62 |.0.mulva|lh..dc.b|
|00001350| 09 30 0d 09 09 65 6e 64 | 70 0d 0d 09 09 65 78 70 |.0...end|p....exp|
|00001360| 6f 72 74 09 6d 75 6c 74 | 69 70 6c 79 0d 6d 75 6c |ort.mult|iply.mul|
|00001370| 74 69 70 6c 79 09 09 70 | 72 6f 63 0d 09 09 73 74 |tiply..p|roc...st|
|00001380| 61 09 40 74 65 6d 70 6c | 0d 09 09 73 74 79 09 40 |a.@templ|...sty.@|
|00001390| 74 65 6d 70 68 0d 09 09 | 6c 64 61 09 23 30 0d 09 |temph...|lda.#0..|
|000013a0| 09 74 61 79 0d 40 61 09 | 09 6c 73 72 09 6d 75 6c |.tay.@a.|.lsr.mul|
|000013b0| 76 61 6c 68 0d 09 09 72 | 6f 72 09 6d 75 6c 76 61 |valh...r|or.mulva|
|000013c0| 6c 6c 0d 09 09 62 63 63 | 09 40 62 0d 09 09 63 6c |ll...bcc|.@b...cl|
|000013d0| 63 0d 09 09 61 64 63 09 | 40 74 65 6d 70 6c 0d 09 |c...adc.|@templ..|
|000013e0| 09 70 68 61 0d 09 09 74 | 79 61 0d 09 09 61 64 63 |.pha...t|ya...adc|
|000013f0| 09 40 74 65 6d 70 68 0d | 09 09 74 61 79 0d 09 09 |.@temph.|..tay...|
|00001400| 70 6c 61 0d 40 62 09 09 | 61 73 6c 09 40 74 65 6d |pla.@b..|asl.@tem|
|00001410| 70 6c 0d 09 09 72 6f 6c | 09 40 74 65 6d 70 68 0d |pl...rol|.@temph.|
|00001420| 09 09 70 68 61 0d 09 09 | 6c 64 61 09 6d 75 6c 76 |..pha...|lda.mulv|
|00001430| 61 6c 68 0d 09 09 6f 72 | 61 09 6d 75 6c 76 61 6c |alh...or|a.mulval|
|00001440| 6c 0d 09 09 63 6d 70 09 | 23 31 0d 09 09 70 6c 61 |l...cmp.|#1...pla|
|00001450| 0d 09 09 62 63 73 09 40 | 61 0d 09 09 72 74 73 0d |...bcs.@|a...rts.|
|00001460| 40 74 65 6d 70 6c 09 09 | 64 63 2e 62 09 30 0d 40 |@templ..|dc.b.0.@|
|00001470| 74 65 6d 70 68 09 09 64 | 63 2e 62 09 30 0d 09 09 |temph..d|c.b.0...|
|00001480| 65 6e 64 70 0d 0d 09 09 | 65 78 70 6f 72 74 09 64 |endp....|export.d|
|00001490| 69 76 63 6f 6e 6c 0d 64 | 69 76 63 6f 6e 6c 09 09 |ivconl.d|ivconl..|
|000014a0| 70 72 6f 63 0d 09 09 69 | 6d 70 6f 72 74 09 64 69 |proc...i|mport.di|
|000014b0| 76 63 6f 6e 0d 09 09 6c | 64 79 09 23 30 0d 09 09 |vcon...l|dy.#0...|
|000014c0| 6a 6d 70 09 64 69 76 63 | 6f 6e 09 09 3b 6a 6d 70 |jmp.divc|on..;jmp|
|000014d0| 2c 20 69 6e 73 74 65 61 | 64 20 6f 66 20 62 65 71 |, instea|d of beq|
|000014e0| 20 73 6f 20 77 65 20 63 | 61 6e 20 62 65 20 61 20 | so we c|an be a |
|000014f0| 6c 69 62 2e 0d 09 09 65 | 6e 64 70 0d 0d 2a 2a 2a |lib....e|ndp..***|
|00001500| 0d 0d 09 09 65 78 70 6f | 72 74 09 64 69 76 76 61 |....expo|rt.divva|
|00001510| 72 0d 64 69 76 76 61 72 | 09 09 70 72 6f 63 0d 09 |r.divvar|..proc..|
|00001520| 09 65 78 70 6f 72 74 09 | 64 69 76 63 6f 6e 0d 09 |.export.|divcon..|
|00001530| 09 69 6d 70 6f 72 74 09 | 6c 64 79 76 61 72 0d 09 |.import.|ldyvar..|
|00001540| 09 6a 73 72 09 6c 64 79 | 76 61 72 0d 0d 64 69 76 |.jsr.ldy|var..div|
|00001550| 63 6f 6e 09 09 73 74 61 | 09 40 74 65 6d 70 6c 0d |con..sta|.@templ.|
|00001560| 09 09 73 74 79 09 40 74 | 65 6d 70 68 0d 09 09 6c |..sty.@t|emph...l|
|00001570| 64 61 09 23 31 36 0d 09 | 09 73 74 61 09 40 74 65 |da.#16..|.sta.@te|
|00001580| 6d 70 0d 09 09 6c 64 61 | 09 23 30 0d 09 09 73 74 |mp...lda|.#0...st|
|00001590| 61 09 40 74 65 6d 70 32 | 0d 09 09 73 74 61 09 40 |a.@temp2|...sta.@|
|000015a0| 74 65 6d 70 33 0d 40 61 | 09 09 61 73 6c 09 76 73 |temp3.@a|..asl.vs|
|000015b0| 6c 2c 78 0d 09 09 72 6f | 6c 09 76 73 68 2c 78 0d |l,x...ro|l.vsh,x.|
|000015c0| 09 09 72 6f 6c 09 40 74 | 65 6d 70 32 0d 09 09 72 |..rol.@t|emp2...r|
|000015d0| 6f 6c 09 40 74 65 6d 70 | 33 0d 09 09 6c 64 61 09 |ol.@temp|3...lda.|
|000015e0| 40 74 65 6d 70 32 0d 09 | 09 73 65 63 0d 09 09 73 |@temp2..|.sec...s|
|000015f0| 62 63 09 40 74 65 6d 70 | 6c 0d 09 09 73 74 61 09 |bc.@temp|l...sta.|
|00001600| 40 74 65 6d 70 34 0d 09 | 09 6c 64 61 09 40 74 65 |@temp4..|.lda.@te|
|00001610| 6d 70 33 0d 09 09 73 62 | 63 09 40 74 65 6d 70 68 |mp3...sb|c.@temph|
|00001620| 0d 09 09 62 63 63 09 40 | 62 0d 09 09 73 74 61 09 |...bcc.@|b...sta.|
|00001630| 40 74 65 6d 70 33 0d 09 | 09 6c 64 61 09 40 74 65 |@temp3..|.lda.@te|
|00001640| 6d 70 34 0d 09 09 73 74 | 61 09 40 74 65 6d 70 32 |mp4...st|a.@temp2|
|00001650| 0d 09 09 69 6e 63 09 76 | 73 6c 2c 78 0d 40 62 09 |...inc.v|sl,x.@b.|
|00001660| 09 64 65 63 09 40 74 65 | 6d 70 0d 09 09 62 6e 65 |.dec.@te|mp...bne|
|00001670| 09 40 61 0d 09 09 6c 64 | 61 09 40 74 65 6d 70 32 |.@a...ld|a.@temp2|
|00001680| 0d 09 09 6c 64 79 09 40 | 74 65 6d 70 33 0d 09 09 |...ldy.@|temp3...|
|00001690| 72 74 73 0d 40 74 65 6d | 70 6c 09 09 64 63 2e 62 |rts.@tem|pl..dc.b|
|000016a0| 09 30 0d 40 74 65 6d 70 | 68 09 09 64 63 2e 62 09 |.0.@temp|h..dc.b.|
|000016b0| 30 0d 40 74 65 6d 70 09 | 09 64 63 2e 62 09 30 0d |0.@temp.|.dc.b.0.|
|000016c0| 40 74 65 6d 70 32 09 09 | 64 63 2e 62 09 30 0d 40 |@temp2..|dc.b.0.@|
|000016d0| 74 65 6d 70 33 09 09 64 | 63 2e 62 09 30 0d 40 74 |temp3..d|c.b.0.@t|
|000016e0| 65 6d 70 34 09 09 64 63 | 2e 62 09 30 0d 09 09 65 |emp4..dc|.b.0...e|
|000016f0| 6e 64 70 0d 0d 2a 2a 2a | 0d 0d 09 09 65 78 70 6f |ndp..***|....expo|
|00001700| 72 74 09 61 64 64 76 61 | 72 0d 61 64 64 76 61 72 |rt.addva|r.addvar|
|00001710| 09 09 70 72 6f 63 0d 09 | 09 65 78 70 6f 72 74 09 |..proc..|.export.|
|00001720| 61 64 64 63 6f 6e 0d 09 | 09 69 6d 70 6f 72 74 09 |addcon..|.import.|
|00001730| 6c 64 79 76 61 72 0d 09 | 09 6a 73 72 09 6c 64 79 |ldyvar..|.jsr.ldy|
|00001740| 76 61 72 0d 0d 61 64 64 | 63 6f 6e 09 09 70 68 61 |var..add|con..pha|
|00001750| 0d 09 09 63 6c 63 0d 09 | 09 61 64 63 09 76 73 6c |...clc..|.adc.vsl|
|00001760| 2c 78 0d 09 09 73 74 61 | 09 76 73 6c 2c 78 0d 09 |,x...sta|.vsl,x..|
|00001770| 09 74 79 61 0d 09 09 61 | 64 63 09 76 73 68 2c 78 |.tya...a|dc.vsh,x|
|00001780| 0d 09 09 73 74 61 09 76 | 73 68 2c 78 0d 09 09 70 |...sta.v|sh,x...p|
|00001790| 6c 61 0d 09 09 72 74 73 | 0d 09 09 65 6e 64 70 0d |la...rts|...endp.|
|000017a0| 0d 2a 2a 2a 0d 0d 09 09 | 65 78 70 6f 72 74 09 61 |.***....|export.a|
|000017b0| 64 64 63 6f 6e 6c 0d 61 | 64 64 63 6f 6e 6c 09 09 |ddconl.a|ddconl..|
|000017c0| 70 72 6f 63 0d 09 09 6c | 64 79 09 23 30 0d 09 09 |proc...l|dy.#0...|
|000017d0| 6a 6d 70 09 61 64 64 63 | 6f 6e 09 09 3b 6a 6d 70 |jmp.addc|on..;jmp|
|000017e0| 2c 20 69 6e 73 74 65 61 | 64 20 6f 66 20 62 65 71 |, instea|d of beq|
|000017f0| 20 73 6f 20 77 65 20 63 | 61 6e 20 62 65 20 61 20 | so we c|an be a |
|00001800| 6c 69 62 2e 0d 09 09 65 | 6e 64 70 0d 0d 2a 2a 2a |lib....e|ndp..***|
|00001810| 0d 0d 09 09 65 78 70 6f | 72 74 09 73 75 62 76 61 |....expo|rt.subva|
|00001820| 72 0d 73 75 62 76 61 72 | 09 09 70 72 6f 63 0d 09 |r.subvar|..proc..|
|00001830| 09 65 78 70 6f 72 74 09 | 73 75 62 63 6f 6e 0d 09 |.export.|subcon..|
|00001840| 09 69 6d 70 6f 72 74 09 | 6c 64 79 76 61 72 0d 09 |.import.|ldyvar..|
|00001850| 09 6a 73 72 09 6c 64 79 | 76 61 72 0d 0d 73 75 62 |.jsr.ldy|var..sub|
|00001860| 63 6f 6e 09 09 70 68 61 | 0d 09 09 73 74 61 09 40 |con..pha|...sta.@|
|00001870| 74 65 6d 70 0d 09 09 6c | 64 61 09 76 73 6c 2c 78 |temp...l|da.vsl,x|
|00001880| 0d 09 09 73 65 63 0d 09 | 09 73 62 63 09 40 74 65 |...sec..|.sbc.@te|
|00001890| 6d 70 0d 09 09 73 74 61 | 09 76 73 6c 2c 78 0d 09 |mp...sta|.vsl,x..|
|000018a0| 09 73 74 79 09 40 74 65 | 6d 70 0d 09 09 6c 64 61 |.sty.@te|mp...lda|
|000018b0| 09 76 73 68 2c 78 0d 09 | 09 73 62 63 09 40 74 65 |.vsh,x..|.sbc.@te|
|000018c0| 6d 70 0d 09 09 73 74 61 | 09 76 73 68 2c 78 0d 09 |mp...sta|.vsh,x..|
|000018d0| 09 70 6c 61 0d 09 09 72 | 74 73 0d 40 74 65 6d 70 |.pla...r|ts.@temp|
|000018e0| 09 09 64 63 2e 62 09 30 | 0d 09 09 65 6e 64 70 0d |..dc.b.0|...endp.|
|000018f0| 0d 2a 2a 2a 0d 0d 09 09 | 65 78 70 6f 72 74 09 73 |.***....|export.s|
|00001900| 75 62 63 6f 6e 6c 0d 73 | 75 62 63 6f 6e 6c 09 09 |ubconl.s|ubconl..|
|00001910| 70 72 6f 63 0d 09 09 6c | 64 79 09 23 30 0d 09 09 |proc...l|dy.#0...|
|00001920| 6a 6d 70 09 73 75 62 63 | 6f 6e 09 09 3b 6a 6d 70 |jmp.subc|on..;jmp|
|00001930| 2c 20 69 6e 73 74 65 61 | 64 20 6f 66 20 62 65 71 |, instea|d of beq|
|00001940| 20 73 6f 20 77 65 20 63 | 61 6e 20 62 65 20 61 20 | so we c|an be a |
|00001950| 6c 69 62 2e 0d 09 09 65 | 6e 64 70 0d 0d 2a 2a 2a |lib....e|ndp..***|
|00001960| 0d 0d 09 09 65 78 70 6f | 72 74 09 73 65 74 63 6f |....expo|rt.setco|
|00001970| 6e 6c 0d 73 65 74 63 6f | 6e 6c 09 09 70 72 6f 63 |nl.setco|nl..proc|
|00001980| 0d 09 09 65 78 70 6f 72 | 74 09 73 65 74 63 6f 6e |...expor|t.setcon|
|00001990| 0d 09 09 6c 64 79 09 23 | 30 0d 0d 73 65 74 63 6f |...ldy.#|0..setco|
|000019a0| 6e 09 09 73 74 61 09 76 | 73 6c 2c 78 0d 09 09 70 |n..sta.v|sl,x...p|
|000019b0| 68 61 0d 09 09 74 79 61 | 0d 09 09 73 74 61 09 76 |ha...tya|...sta.v|
|000019c0| 73 68 2c 78 0d 09 09 70 | 6c 61 0d 09 09 72 74 73 |sh,x...p|la...rts|
|000019d0| 0d 09 09 65 6e 64 70 0d | 0d 2a 2a 2a 0d 0d 09 09 |...endp.|.***....|
|000019e0| 65 78 70 6f 72 74 09 73 | 65 74 7a 65 72 6f 0d 73 |export.s|etzero.s|
|000019f0| 65 74 7a 65 72 6f 09 09 | 70 72 6f 63 0d 09 09 6c |etzero..|proc...l|
|00001a00| 64 61 09 23 30 0d 09 09 | 73 74 61 09 76 73 68 2c |da.#0...|sta.vsh,|
|00001a10| 78 0d 09 09 73 74 61 09 | 76 73 6c 2c 78 0d 09 09 |x...sta.|vsl,x...|
|00001a20| 72 74 73 0d 09 09 65 6e | 64 70 0d 0d 2a 2a 2a 0d |rts...en|dp..***.|
|00001a30| 0d 09 09 65 78 70 6f 72 | 74 09 73 65 74 65 71 0d |...expor|t.seteq.|
|00001a40| 73 65 74 65 71 09 09 70 | 72 6f 63 0d 09 09 6c 64 |seteq..p|roc...ld|
|00001a50| 61 09 76 73 68 2c 79 0d | 09 09 73 74 61 09 76 73 |a.vsh,y.|..sta.vs|
|00001a60| 68 2c 78 0d 09 09 6c 64 | 61 09 76 73 6c 2c 79 0d |h,x...ld|a.vsl,y.|
|00001a70| 09 09 73 74 61 09 76 73 | 6c 2c 78 0d 09 09 72 74 |..sta.vs|l,x...rt|
|00001a80| 73 0d 09 09 65 6e 64 70 | 0d 0d 2a 2a 2a 0d 0d 09 |s...endp|..***...|
|00001a90| 09 65 78 70 6f 72 74 09 | 73 65 74 76 61 72 73 0d |.export.|setvars.|
|00001aa0| 73 65 74 76 61 72 73 09 | 09 70 72 6f 63 0d 09 09 |setvars.|.proc...|
|00001ab0| 70 6c 61 0d 09 09 73 74 | 61 09 40 67 65 74 76 61 |pla...st|a.@getva|
|00001ac0| 6c 2b 31 0d 09 09 70 6c | 61 0d 09 09 73 74 61 09 |l+1...pl|a...sta.|
|00001ad0| 40 67 65 74 76 61 6c 2b | 32 0d 09 09 74 78 61 0d |@getval+|2...txa.|
|00001ae0| 09 09 70 68 61 0d 09 09 | 6c 64 79 09 23 31 0d 40 |..pha...|ldy.#1.@|
|00001af0| 6c 6f 6f 70 09 09 6a 73 | 72 09 40 67 65 74 76 61 |loop..js|r.@getva|
|00001b00| 6c 0d 09 09 63 6d 70 09 | 23 32 35 35 0d 09 09 62 |l...cmp.|#255...b|
|00001b10| 65 71 09 40 65 78 69 74 | 0d 09 09 74 61 78 0d 09 |eq.@exit|...tax..|
|00001b20| 09 6a 73 72 09 40 67 65 | 74 76 61 6c 0d 09 09 73 |.jsr.@ge|tval...s|
|00001b30| 74 61 09 76 73 6c 2c 78 | 0d 09 09 6a 73 72 09 40 |ta.vsl,x|...jsr.@|
|00001b40| 67 65 74 76 61 6c 0d 09 | 09 73 74 61 09 76 73 68 |getval..|.sta.vsh|
|00001b50| 2c 78 0d 09 09 62 63 63 | 09 40 6c 6f 6f 70 09 09 |,x...bcc|.@loop..|
|00001b60| 3b 41 6c 77 61 79 73 2e | 0d 40 65 78 69 74 09 09 |;Always.|.@exit..|
|00001b70| 70 6c 61 0d 09 09 74 61 | 78 0d 09 09 6c 64 61 09 |pla...ta|x...lda.|
|00001b80| 40 67 65 74 76 61 6c 2b | 32 0d 09 09 70 68 61 0d |@getval+|2...pha.|
|00001b90| 09 09 6c 64 61 09 40 67 | 65 74 76 61 6c 2b 31 0d |..lda.@g|etval+1.|
|00001ba0| 09 09 70 68 61 0d 09 09 | 72 74 73 0d 40 67 65 74 |..pha...|rts.@get|
|00001bb0| 76 61 6c 09 09 6c 64 61 | 09 24 32 30 30 30 2c 79 |val..lda|.$2000,y|
|00001bc0| 09 09 3b 41 64 64 72 65 | 73 73 20 6d 6f 64 69 66 |..;Addre|ss modif|
|00001bd0| 69 65 64 2e 0d 09 09 69 | 6e 63 09 40 67 65 74 76 |ied....i|nc.@getv|
|00001be0| 61 6c 2b 31 0d 09 09 62 | 6e 65 09 40 72 74 73 0d |al+1...b|ne.@rts.|
|00001bf0| 09 09 69 6e 63 09 40 67 | 65 74 76 61 6c 2b 32 0d |..inc.@g|etval+2.|
|00001c00| 40 72 74 73 09 09 72 74 | 73 0d 09 09 65 6e 64 70 |@rts..rt|s...endp|
|00001c10| 0d 0d 2a 2a 2a 0d 0d 09 | 09 65 78 70 6f 72 74 09 |..***...|.export.|
|00001c20| 78 67 74 79 0d 78 67 74 | 79 09 09 70 72 6f 63 0d |xgty.xgt|y..proc.|
|00001c30| 09 09 69 6d 70 6f 72 74 | 09 76 69 66 65 71 75 61 |..import|.vifequa|
|00001c40| 6c 2c 20 76 69 66 73 67 | 6e 65 71 2c 20 78 6c 74 |l, vifsg|neq, xlt|
|00001c50| 79 30 0d 09 09 74 79 61 | 0d 09 09 70 68 61 0d 09 |y0...tya|...pha..|
|00001c60| 09 6c 64 61 09 73 69 67 | 6e 0d 09 09 62 70 6c 09 |.lda.sig|n...bpl.|
|00001c70| 40 61 0d 09 09 6a 73 72 | 09 76 69 66 73 67 6e 65 |@a...jsr|.vifsgne|
|00001c80| 71 0d 09 09 6a 6d 70 09 | 40 62 0d 40 61 09 09 6a |q...jmp.|@b.@a..j|
|00001c90| 73 72 09 76 69 66 65 71 | 75 61 6c 0d 40 62 09 09 |sr.vifeq|ual.@b..|
|00001ca0| 70 6c 61 0d 09 09 74 61 | 79 0d 09 09 62 63 73 09 |pla...ta|y...bcs.|
|00001cb0| 40 72 74 73 0d 09 09 6a | 6d 70 09 78 6c 74 79 30 |@rts...j|mp.xlty0|
|00001cc0| 09 09 3b 6a 6d 70 2c 20 | 69 6e 73 74 65 61 64 20 |..;jmp, |instead |
|00001cd0| 6f 66 20 62 63 63 20 73 | 6f 20 77 65 20 63 61 6e |of bcc s|o we can|
|00001ce0| 20 62 65 20 61 20 6c 69 | 62 2e 0d 40 72 74 73 09 | be a li|b..@rts.|
|00001cf0| 09 72 74 73 0d 09 09 65 | 6e 64 70 0d 0d 2a 2a 2a |.rts...e|ndp..***|
|00001d00| 0d 0d 09 09 65 78 70 6f | 72 74 09 78 6c 74 79 0d |....expo|rt.xlty.|
|00001d10| 78 6c 74 79 09 09 70 72 | 6f 63 0d 09 09 65 78 70 |xlty..pr|oc...exp|
|00001d20| 6f 72 74 09 78 6c 74 79 | 30 0d 09 09 69 6d 70 6f |ort.xlty|0...impo|
|00001d30| 72 74 09 76 69 66 65 71 | 75 61 6c 2c 20 76 69 66 |rt.vifeq|ual, vif|
|00001d40| 73 67 6e 65 71 0d 09 09 | 74 79 61 0d 09 09 70 68 |sgneq...|tya...ph|
|00001d50| 61 0d 09 09 6c 64 61 09 | 73 69 67 6e 0d 09 09 62 |a...lda.|sign...b|
|00001d60| 70 6c 09 40 61 0d 09 09 | 6a 73 72 09 76 69 66 73 |pl.@a...|jsr.vifs|
|00001d70| 67 6e 65 71 0d 09 09 6a | 6d 70 09 40 62 0d 40 61 |gneq...j|mp.@b.@a|
|00001d80| 09 09 6a 73 72 09 76 69 | 66 65 71 75 61 6c 0d 40 |..jsr.vi|fequal.@|
|00001d90| 62 09 09 70 6c 61 0d 09 | 09 74 61 79 0d 09 09 62 |b..pla..|.tay...b|
|00001da0| 63 63 09 78 6c 74 79 72 | 74 73 0d 78 6c 74 79 30 |cc.xltyr|ts.xlty0|
|00001db0| 09 09 6c 64 61 09 76 73 | 6c 2c 78 0d 09 09 70 68 |..lda.vs|l,x...ph|
|00001dc0| 61 0d 09 09 6c 64 61 09 | 76 73 6c 2c 79 0d 09 09 |a...lda.|vsl,y...|
|00001dd0| 73 74 61 09 76 73 6c 2c | 78 0d 09 09 70 6c 61 0d |sta.vsl,|x...pla.|
|00001de0| 09 09 73 74 61 09 76 73 | 6c 2c 79 0d 09 09 6c 64 |..sta.vs|l,y...ld|
|00001df0| 61 09 76 73 68 2c 78 0d | 09 09 70 68 61 0d 09 09 |a.vsh,x.|..pha...|
|00001e00| 6c 64 61 09 76 73 68 2c | 79 0d 09 09 73 74 61 09 |lda.vsh,|y...sta.|
|00001e10| 76 73 68 2c 78 0d 09 09 | 70 6c 61 0d 09 09 73 74 |vsh,x...|pla...st|
|00001e20| 61 09 76 73 68 2c 79 0d | 78 6c 74 79 72 74 73 09 |a.vsh,y.|xltyrts.|
|00001e30| 09 72 74 73 0d 09 09 65 | 6e 64 70 0d 0d 2a 2a 2a |.rts...e|ndp..***|
|00001e40| 0d 0d 09 09 65 78 70 6f | 72 74 09 69 66 65 71 75 |....expo|rt.ifequ|
|00001e50| 61 6c 0d 69 66 65 71 75 | 61 6c 09 09 70 72 6f 63 |al.ifequ|al..proc|
|00001e60| 0d 09 09 73 74 61 09 40 | 6c 6f 0d 09 09 73 74 79 |...sta.@|lo...sty|
|00001e70| 09 40 68 69 0d 09 09 6c | 64 61 09 76 73 68 2c 78 |.@hi...l|da.vsh,x|
|00001e80| 0d 09 09 63 6d 70 09 40 | 68 69 0d 09 09 62 6e 65 |...cmp.@|hi...bne|
|00001e90| 09 40 65 78 69 74 0d 09 | 09 6c 64 61 09 76 73 6c |.@exit..|.lda.vsl|
|00001ea0| 2c 78 0d 09 09 63 6d 70 | 09 40 6c 6f 0d 40 65 78 |,x...cmp|.@lo.@ex|
|00001eb0| 69 74 09 09 70 68 70 0d | 09 09 6c 64 61 09 40 6c |it..php.|..lda.@l|
|00001ec0| 6f 0d 09 09 70 6c 70 0d | 09 09 72 74 73 09 09 09 |o...plp.|..rts...|
|00001ed0| 3b 65 71 3d 65 71 2c 20 | 63 73 3e 3d 2c 20 63 63 |;eq=eq, |cs>=, cc|
|00001ee0| 3c 0d 40 6c 6f 09 09 64 | 63 2e 62 09 30 0d 40 68 |<.@lo..d|c.b.0.@h|
|00001ef0| 69 09 09 64 63 2e 62 09 | 30 0d 09 09 65 6e 64 70 |i..dc.b.|0...endp|
|00001f00| 0d 0d 2a 2a 2a 0d 0d 09 | 09 65 78 70 6f 72 74 09 |..***...|.export.|
|00001f10| 76 69 66 65 71 75 61 6c | 0d 76 69 66 65 71 75 61 |vifequal|.vifequa|
|00001f20| 6c 09 09 70 72 6f 63 0d | 09 09 6c 64 61 09 76 73 |l..proc.|..lda.vs|
|00001f30| 6c 2c 79 09 09 3b 4c 6f | 61 64 20 75 70 20 74 68 |l,y..;Lo|ad up th|
|00001f40| 65 20 76 61 72 69 61 62 | 6c 65 20 76 61 6c 75 65 |e variab|le value|
|00001f50| 20 61 6e 64 20 67 6f 20 | 64 6f 20 69 74 2e 0d 09 | and go |do it...|
|00001f60| 09 70 68 61 0d 09 09 6c | 64 61 09 76 73 68 2c 79 |.pha...l|da.vsh,y|
|00001f70| 0d 09 09 74 61 79 0d 09 | 09 70 6c 61 0d 09 09 6a |...tay..|.pla...j|
|00001f80| 6d 70 09 69 66 65 71 75 | 61 6c 0d 09 09 65 6e 64 |mp.ifequ|al...end|
|00001f90| 70 0d 0d 2a 2a 2a 0d 0d | 09 09 65 78 70 6f 72 74 |p..***..|..export|
|00001fa0| 09 69 66 73 67 6e 65 71 | 0d 69 66 73 67 6e 65 71 |.ifsgneq|.ifsgneq|
|00001fb0| 09 09 70 72 6f 63 0d 09 | 09 73 74 61 09 40 6c 6f |..proc..|.sta.@lo|
|00001fc0| 09 09 3b 50 72 65 73 65 | 72 76 65 20 61 63 63 2e |..;Prese|rve acc.|
|00001fd0| 0d 09 09 74 79 61 0d 09 | 09 63 6d 70 09 23 24 38 |...tya..|.cmp.#$8|
|00001fe0| 30 09 09 3b 53 65 65 20 | 69 66 20 72 69 67 68 74 |0..;See |if right|
|00001ff0| 2d 73 69 64 65 20 69 73 | 20 6e 65 67 61 74 69 76 |-side is| negativ|
|00002000| 65 2e 0d 09 09 65 6f 72 | 09 76 73 68 2c 78 09 09 |e....eor|.vsh,x..|
|00002010| 3b 53 65 65 20 69 66 20 | 73 69 67 6e 73 20 61 72 |;See if |signs ar|
|00002020| 65 20 74 68 65 20 73 61 | 6d 65 2e 0d 09 09 62 6d |e the sa|me....bm|
|00002030| 69 09 40 65 78 69 74 09 | 09 3b 78 72 65 67 20 76 |i.@exit.|.;xreg v|
|00002040| 61 72 69 61 62 6c 65 20 | 69 73 20 73 6d 61 6c 6c |ariable |is small|
|00002050| 65 72 20 28 73 69 67 6e | 65 64 29 2e 0d 09 09 62 |er (sign|ed)....b|
|00002060| 63 73 09 40 61 09 09 3b | 78 72 65 67 20 76 61 72 |cs.@a..;|xreg var|
|00002070| 69 61 62 6c 65 20 69 73 | 20 6e 65 67 61 74 69 76 |iable is| negativ|
|00002080| 65 2e 0d 09 09 6a 6d 70 | 09 69 66 65 71 75 61 6c |e....jmp|.ifequal|
|00002090| 09 09 3b 78 72 65 67 20 | 76 61 72 69 61 62 6c 65 |..;xreg |variable|
|000020a0| 20 69 73 20 70 6f 73 69 | 74 69 76 65 2e 0d 40 61 | is posi|tive..@a|
|000020b0| 09 09 6a 73 72 09 69 66 | 65 71 75 61 6c 0d 09 09 |..jsr.if|equal...|
|000020c0| 62 65 71 09 40 72 74 73 | 09 09 3b 78 72 65 67 20 |beq.@rts|..;xreg |
|000020d0| 76 61 72 69 61 62 6c 65 | 20 69 73 20 65 71 75 61 |variable| is equa|
|000020e0| 6c 2e 0d 09 09 72 6f 72 | 09 61 0d 09 09 65 6f 72 |l....ror|.a...eor|
|000020f0| 09 23 24 38 30 0d 09 09 | 73 65 63 09 09 09 3b 6e |.#$80...|sec...;n|
|00002100| 6f 74 20 65 71 75 61 6c | 20 73 74 61 74 75 73 2e |ot equal| status.|
|00002110| 0d 09 09 72 6f 6c 09 61 | 0d 40 65 78 69 74 09 09 |...rol.a|.@exit..|
|00002120| 70 68 70 0d 09 09 6c 64 | 61 09 40 6c 6f 0d 09 09 |php...ld|a.@lo...|
|00002130| 70 6c 70 0d 40 72 74 73 | 09 09 72 74 73 09 09 09 |plp.@rts|..rts...|
|00002140| 3b 65 71 3d 65 71 2c 20 | 63 73 3e 3d 2c 20 63 63 |;eq=eq, |cs>=, cc|
|00002150| 3c 0d 40 6c 6f 09 09 64 | 63 2e 62 09 30 0d 09 09 |<.@lo..d|c.b.0...|
|00002160| 65 6e 64 70 0d 0d 2a 2a | 2a 0d 0d 09 09 65 78 70 |endp..**|*....exp|
|00002170| 6f 72 74 09 76 69 66 73 | 67 6e 65 71 0d 76 69 66 |ort.vifs|gneq.vif|
|00002180| 73 67 6e 65 71 09 09 70 | 72 6f 63 0d 09 09 6c 64 |sgneq..p|roc...ld|
|00002190| 61 09 76 73 6c 2c 79 09 | 09 3b 4c 6f 61 64 20 75 |a.vsl,y.|.;Load u|
|000021a0| 70 20 74 68 65 20 76 61 | 72 69 61 62 6c 65 20 76 |p the va|riable v|
|000021b0| 61 6c 75 65 20 61 6e 64 | 20 67 6f 20 64 6f 20 69 |alue and| go do i|
|000021c0| 74 2e 0d 09 09 70 68 61 | 0d 09 09 6c 64 61 09 76 |t....pha|...lda.v|
|000021d0| 73 68 2c 79 0d 09 09 74 | 61 79 0d 09 09 70 6c 61 |sh,y...t|ay...pla|
|000021e0| 0d 09 09 6a 6d 70 09 69 | 66 73 67 6e 65 71 0d 09 |...jmp.i|fsgneq..|
|000021f0| 09 65 6e 64 70 0d 0d 2a | 2a 2a 0d 0d 09 09 65 78 |.endp..*|**....ex|
|00002200| 70 6f 72 74 09 73 65 65 | 64 72 61 6e 64 6f 6d 0d |port.see|drandom.|
|00002210| 73 65 65 64 72 61 6e 64 | 6f 6d 09 70 72 6f 63 0d |seedrand|om.proc.|
|00002220| 09 09 65 78 70 6f 72 74 | 09 72 61 6e 64 6f 6d 76 |..export|.randomv|
|00002230| 61 6c 0d 09 09 61 64 63 | 09 24 43 30 32 45 09 09 |al...adc|.$C02E..|
|00002240| 3b 56 69 64 65 6f 20 63 | 6f 75 6e 74 65 72 2e 0d |;Video c|ounter..|
|00002250| 09 09 70 68 61 0d 09 09 | 74 79 61 0d 09 09 61 64 |..pha...|tya...ad|
|00002260| 63 09 24 43 30 32 45 0d | 09 09 74 61 79 0d 09 09 |c.$C02E.|..tay...|
|00002270| 62 6e 65 09 40 61 0d 09 | 09 69 6e 79 0d 40 61 09 |bne.@a..|.iny.@a.|
|00002280| 09 70 6c 61 0d 09 09 62 | 6e 65 09 40 62 0d 09 09 |.pla...b|ne.@b...|
|00002290| 61 64 63 09 23 31 0d 40 | 62 09 09 73 74 61 09 72 |adc.#1.@|b..sta.r|
|000022a0| 61 6e 64 6f 6d 76 61 6c | 0d 09 09 73 74 79 09 72 |andomval|...sty.r|
|000022b0| 61 6e 64 6f 6d 76 61 6c | 2b 31 0d 09 09 72 74 73 |andomval|+1...rts|
|000022c0| 0d 72 61 6e 64 6f 6d 76 | 61 6c 09 64 63 2e 77 09 |.randomv|al.dc.w.|
|000022d0| 30 0d 09 09 65 6e 64 70 | 0d 0d 2a 2a 2a 0d 0d 09 |0...endp|..***...|
|000022e0| 09 65 78 70 6f 72 74 09 | 63 61 6c 63 72 61 6e 64 |.export.|calcrand|
|000022f0| 6f 6d 0d 63 61 6c 63 72 | 61 6e 64 6f 6d 09 70 72 |om.calcr|andom.pr|
|00002300| 6f 63 0d 09 09 73 74 78 | 09 40 6b 65 65 70 78 09 |oc...stx|.@keepx.|
|00002310| 09 3b 4b 65 65 70 20 74 | 68 69 73 20 73 6f 20 77 |.;Keep t|his so w|
|00002320| 65 20 63 61 6e 20 72 65 | 73 74 6f 72 65 20 74 68 |e can re|store th|
|00002330| 65 20 78 72 65 67 2e 0d | 0d 09 09 74 61 78 09 09 |e xreg..|...tax..|
|00002340| 09 3b 55 73 65 20 31 20 | 6c 65 73 73 20 74 68 61 |.;Use 1 |less tha|
|00002350| 6e 20 6c 69 6d 69 74 2c | 20 73 6f 20 74 68 61 74 |n limit,| so that|
|00002360| 20 77 65 20 63 61 6e 0d | 09 09 62 6e 65 09 40 61 | we can.|..bne.@a|
|00002370| 09 09 3b 63 6f 6d 70 75 | 74 65 20 74 68 65 20 73 |..;compu|te the s|
|00002380| 6d 61 6c 6c 65 73 74 20 | 6d 61 73 6b 20 70 6f 73 |mallest |mask pos|
|00002390| 73 69 62 6c 65 2e 20 20 | 54 68 69 73 0d 09 09 64 |sible.  |This...d|
|000023a0| 65 79 09 09 09 3b 77 61 | 79 2c 20 69 66 20 77 65 |ey...;wa|y, if we|
|000023b0| 20 61 72 65 20 70 61 73 | 73 65 64 20 24 31 30 30 | are pas|sed $100|
|000023c0| 2c 20 77 65 20 77 6f 6e | 27 74 0d 40 61 09 09 64 |, we won|'t.@a..d|
|000023d0| 65 78 09 09 09 3b 63 6f | 6d 70 75 74 65 20 61 20 |ex...;co|mpute a |
|000023e0| 6d 61 73 6b 20 6f 66 20 | 24 31 46 46 2e 0d 09 09 |mask of |$1FF....|
|000023f0| 73 74 78 09 40 72 6e 64 | 6c 69 6d 69 74 09 3b 54 |stx.@rnd|limit.;T|
|00002400| 68 65 20 63 61 72 72 79 | 20 77 61 73 20 73 65 74 |he carry| was set|
|00002410| 20 62 79 20 63 6d 70 20 | 23 30 2c 20 73 6f 20 74 | by cmp |#0, so t|
|00002420| 68 65 20 0d 09 09 73 74 | 79 09 40 72 6e 64 6c 69 |he ...st|y.@rndli|
|00002430| 6d 69 74 2b 31 09 3b 73 | 62 63 20 23 31 20 69 73 |mit+1.;s|bc #1 is|
|00002440| 20 6f 6b 61 79 2e 0d 0d | 2a 20 46 69 67 75 72 65 | okay...|* Figure|
|00002450| 20 61 20 6d 61 73 6b 20 | 74 68 61 74 20 69 73 20 | a mask |that is |
|00002460| 6c 61 72 67 65 72 20 74 | 68 61 6e 20 6f 72 20 65 |larger t|han or e|
|00002470| 71 75 61 6c 20 74 6f 20 | 74 68 65 20 72 6e 64 6c |qual to |the rndl|
|00002480| 69 6d 69 74 20 28 6d 69 | 6e 75 73 20 31 29 2e 20 |imit (mi|nus 1). |
|00002490| 20 54 68 69 73 20 77 69 | 6c 6c 20 62 65 0d 2a 20 | This wi|ll be.* |
|000024a0| 75 73 65 64 20 61 67 61 | 69 6e 73 74 20 74 68 65 |used aga|inst the|
|000024b0| 20 63 61 6c 63 75 6c 61 | 74 65 64 20 72 61 6e 64 | calcula|ted rand|
|000024c0| 6f 6d 76 61 6c 20 62 65 | 66 6f 72 65 20 69 74 20 |omval be|fore it |
|000024d0| 69 73 20 63 6f 6d 70 61 | 72 65 64 20 74 6f 20 74 |is compa|red to t|
|000024e0| 68 65 20 72 6e 64 6c 69 | 6d 69 74 2e 20 20 49 66 |he rndli|mit.  If|
|000024f0| 20 74 68 65 0d 2a 20 72 | 61 6e 64 6f 6d 76 61 6c | the.* r|andomval|
|00002500| 20 69 73 20 73 74 69 6c | 6c 20 74 6f 6f 20 6c 61 | is stil|l too la|
|00002510| 72 67 65 2c 20 74 68 65 | 6e 20 77 65 20 77 69 6c |rge, the|n we wil|
|00002520| 6c 20 67 65 74 20 61 6e | 6f 74 68 65 72 2e 0d 09 |l get an|other...|
|00002530| 09 6c 64 78 09 23 30 0d | 09 09 6c 64 61 09 40 72 |.ldx.#0.|..lda.@r|
|00002540| 6e 64 6c 69 6d 69 74 2b | 31 0d 09 09 62 65 71 09 |ndlimit+|1...beq.|
|00002550| 40 63 09 09 3b 4e 6f 20 | 68 69 2d 62 79 74 65 2c |@c..;No |hi-byte,|
|00002560| 20 73 6f 20 77 6f 72 6b | 20 6f 6e 20 6c 6f 77 2d | so work| on low-|
|00002570| 62 79 74 65 2e 0d 09 09 | 74 78 61 0d 09 09 69 6e |byte....|txa...in|
|00002580| 78 0d 40 63 09 09 73 65 | 63 0d 09 09 72 6f 6c 09 |x.@c..se|c...rol.|
|00002590| 61 0d 09 09 63 6d 70 09 | 40 72 6e 64 6c 69 6d 69 |a...cmp.|@rndlimi|
|000025a0| 74 2c 78 0d 09 09 62 63 | 63 09 40 63 0d 09 09 73 |t,x...bc|c.@c...s|
|000025b0| 74 61 09 40 6d 61 73 6b | 6c 2c 78 0d 09 09 74 78 |ta.@mask|l,x...tx|
|000025c0| 61 0d 09 09 65 6f 72 09 | 23 31 0d 09 09 74 61 78 |a...eor.|#1...tax|
|000025d0| 0d 09 09 73 62 63 09 23 | 31 09 09 3b 43 61 72 72 |...sbc.#|1..;Carr|
|000025e0| 79 20 73 65 74 2e 0d 09 | 09 73 74 61 09 40 6d 61 |y set...|.sta.@ma|
|000025f0| 73 6b 6c 2c 78 0d 0d 40 | 72 65 63 61 6c 63 09 09 |skl,x..@|recalc..|
|00002600| 6c 64 79 09 23 31 39 0d | 40 64 09 09 61 73 6c 09 |ldy.#19.|@d..asl.|
|00002610| 72 61 6e 64 6f 6d 76 61 | 6c 0d 09 09 72 6f 6c 09 |randomva|l...rol.|
|00002620| 72 61 6e 64 6f 6d 76 61 | 6c 2b 31 0d 09 09 62 63 |randomva|l+1...bc|
|00002630| 63 09 40 65 0d 09 09 6c | 64 61 09 72 61 6e 64 6f |c.@e...l|da.rando|
|00002640| 6d 76 61 6c 0d 09 09 65 | 6f 72 09 23 24 38 37 0d |mval...e|or.#$87.|
|00002650| 09 09 73 74 61 09 72 61 | 6e 64 6f 6d 76 61 6c 0d |..sta.ra|ndomval.|
|00002660| 09 09 6c 64 61 09 72 61 | 6e 64 6f 6d 76 61 6c 2b |..lda.ra|ndomval+|
|00002670| 31 0d 09 09 65 6f 72 09 | 23 24 31 44 0d 09 09 73 |1...eor.|#$1D...s|
|00002680| 74 61 09 72 61 6e 64 6f | 6d 76 61 6c 2b 31 0d 40 |ta.rando|mval+1.@|
|00002690| 65 09 09 64 65 79 0d 09 | 09 62 6e 65 09 40 64 0d |e..dey..|.bne.@d.|
|000026a0| 0d 09 09 6c 64 79 09 72 | 61 6e 64 6f 6d 76 61 6c |...ldy.r|andomval|
|000026b0| 2b 31 0d 09 09 6c 64 78 | 09 72 61 6e 64 6f 6d 76 |+1...ldx|.randomv|
|000026c0| 61 6c 0d 09 09 62 6e 65 | 09 40 66 0d 09 09 64 65 |al...bne|.@f...de|
|000026d0| 79 0d 40 66 09 09 64 65 | 78 0d 09 09 74 79 61 0d |y.@f..de|x...tya.|
|000026e0| 09 09 61 6e 64 09 40 6d | 61 73 6b 68 0d 09 09 74 |..and.@m|askh...t|
|000026f0| 61 79 0d 09 09 74 78 61 | 0d 09 09 61 6e 64 09 40 |ay...txa|...and.@|
|00002700| 6d 61 73 6b 6c 0d 09 09 | 63 70 79 09 40 72 6e 64 |maskl...|cpy.@rnd|
|00002710| 6c 69 6d 69 74 2b 31 0d | 09 09 62 63 63 09 40 67 |limit+1.|..bcc.@g|
|00002720| 0d 09 09 62 6e 65 09 40 | 72 65 63 61 6c 63 0d 09 |...bne.@|recalc..|
|00002730| 09 63 6d 70 09 40 72 6e | 64 6c 69 6d 69 74 0d 09 |.cmp.@rn|dlimit..|
|00002740| 09 62 63 63 09 40 67 0d | 09 09 62 6e 65 09 40 72 |.bcc.@g.|..bne.@r|
|00002750| 65 63 61 6c 63 0d 40 67 | 09 09 6c 64 78 09 40 6b |ecalc.@g|..ldx.@k|
|00002760| 65 65 70 78 0d 09 09 72 | 74 73 0d 40 72 6e 64 6c |eepx...r|ts.@rndl|
|00002770| 69 6d 69 74 09 64 63 2e | 77 09 30 0d 40 6b 65 65 |imit.dc.|w.0.@kee|
|00002780| 70 78 09 09 64 63 2e 62 | 09 30 0d 40 6d 61 73 6b |px..dc.b|.0.@mask|
|00002790| 6c 09 09 64 63 2e 62 09 | 30 0d 40 6d 61 73 6b 68 |l..dc.b.|0.@maskh|
|000027a0| 09 09 64 63 2e 62 09 30 | 0d 09 09 65 6e 64 70 0d |..dc.b.0|...endp.|
|000027b0| 0d 2a 2a 2a 0d 2a 2a 2a | 0d 2a 2a 2a 0d 0d 09 09 |.***.***|.***....|
|000027c0| 65 78 70 6f 72 74 09 73 | 74 72 76 61 6c 0d 73 74 |export.s|trval.st|
|000027d0| 72 76 61 6c 09 09 70 72 | 6f 63 0d 09 09 65 78 70 |rval..pr|oc...exp|
|000027e0| 6f 72 74 09 6d 69 64 73 | 74 72 76 61 6c 0d 09 09 |ort.mids|trval...|
|000027f0| 69 6d 70 6f 72 74 09 73 | 74 72 69 6e 66 6f 2c 20 |import.s|trinfo, |
|00002800| 73 74 72 73 69 67 6e 2c | 20 73 74 72 6c 65 6e 2c |strsign,| strlen,|
|00002810| 20 63 75 72 72 65 6e 74 | 73 74 72 2c 20 6e 65 78 | current|str, nex|
|00002820| 74 63 68 72 0d 09 09 6c | 64 79 09 23 30 0d 6d 69 |tchr...l|dy.#0.mi|
|00002830| 64 73 74 72 76 61 6c 09 | 6a 73 72 09 73 74 72 69 |dstrval.|jsr.stri|
|00002840| 6e 66 6f 0d 09 09 73 74 | 61 09 40 67 65 74 63 68 |nfo...st|a.@getch|
|00002850| 72 2b 31 0d 09 09 73 74 | 78 09 40 67 65 74 63 68 |r+1...st|x.@getch|
|00002860| 72 2b 32 0d 09 09 6c 64 | 61 09 23 30 0d 09 09 73 |r+2...ld|a.#0...s|
|00002870| 74 61 09 73 74 72 73 69 | 67 6e 0d 09 09 73 74 61 |ta.strsi|gn...sta|
|00002880| 09 40 74 65 6d 70 0d 09 | 09 73 74 61 09 40 74 65 |.@temp..|.sta.@te|
|00002890| 6d 70 32 0d 09 09 63 70 | 79 09 73 74 72 6c 65 6e |mp2...cp|y.strlen|
|000028a0| 0d 09 09 62 63 73 09 40 | 65 78 69 74 09 09 3b 49 |...bcs.@|exit..;I|
|000028b0| 6e 64 65 78 65 64 20 6f | 75 74 20 6f 66 20 73 74 |ndexed o|ut of st|
|000028c0| 72 69 6e 67 20 61 74 20 | 73 74 61 72 74 2e 0d 09 |ring at |start...|
|000028d0| 09 6a 73 72 09 40 67 65 | 74 63 68 72 09 09 3b 44 |.jsr.@ge|tchr..;D|
|000028e0| 65 63 69 6d 61 6c 20 6f | 72 20 68 65 78 2e 2e 2e |ecimal o|r hex...|
|000028f0| 0d 09 09 63 6d 70 09 23 | 27 24 27 0d 09 09 62 65 |...cmp.#|'$'...be|
|00002900| 71 09 40 68 65 78 0d 40 | 61 09 09 63 70 79 09 73 |q.@hex.@|a..cpy.s|
|00002910| 74 72 6c 65 6e 0d 09 09 | 62 63 73 09 40 65 78 69 |trlen...|bcs.@exi|
|00002920| 74 0d 09 09 6a 73 72 09 | 40 67 65 74 63 68 72 0d |t...jsr.|@getchr.|
|00002930| 09 09 63 6d 70 09 23 27 | 2d 27 0d 09 09 62 6e 65 |..cmp.#'|-'...bne|
|00002940| 09 40 62 0d 09 09 6c 64 | 61 09 40 74 65 6d 70 0d |.@b...ld|a.@temp.|
|00002950| 09 09 6f 72 61 09 40 74 | 65 6d 70 32 0d 09 09 62 |..ora.@t|emp2...b|
|00002960| 6e 65 09 40 65 78 69 74 | 0d 09 09 69 6e 63 09 73 |ne.@exit|...inc.s|
|00002970| 74 72 73 69 67 6e 09 09 | 3b 4e 65 67 61 74 69 76 |trsign..|;Negativ|
|00002980| 65 20 6e 75 6d 62 65 72 | 2e 0d 09 09 69 6e 79 0d |e number|....iny.|
|00002990| 09 09 62 63 73 09 40 61 | 09 09 3b 41 6c 77 61 79 |..bcs.@a|..;Alway|
|000029a0| 73 2e 0d 40 62 09 09 63 | 6d 70 09 23 27 30 27 0d |s..@b..c|mp.#'0'.|
|000029b0| 09 09 62 63 63 09 40 65 | 78 69 74 0d 09 09 63 6d |..bcc.@e|xit...cm|
|000029c0| 70 09 23 27 39 27 2b 31 | 0d 09 09 62 63 73 09 40 |p.#'9'+1|...bcs.@|
|000029d0| 65 78 69 74 0d 09 09 69 | 6e 79 0d 09 09 73 62 63 |exit...i|ny...sbc|
|000029e0| 09 23 34 37 09 09 3b 63 | 63 6c 65 61 72 0d 09 09 |.#47..;c|clear...|
|000029f0| 70 68 61 0d 09 09 6c 64 | 78 09 40 74 65 6d 70 32 |pha...ld|x.@temp2|
|00002a00| 09 09 3b 4d 75 6c 74 69 | 70 6c 79 20 62 79 20 31 |..;Multi|ply by 1|
|00002a10| 30 2e 0d 09 09 6c 64 61 | 09 40 74 65 6d 70 0d 09 |0....lda|.@temp..|
|00002a20| 09 61 73 6c 09 61 0d 09 | 09 72 6f 6c 09 40 74 65 |.asl.a..|.rol.@te|
|00002a30| 6d 70 32 0d 09 09 61 73 | 6c 09 61 0d 09 09 72 6f |mp2...as|l.a...ro|
|00002a40| 6c 09 40 74 65 6d 70 32 | 0d 09 09 61 64 63 09 40 |l.@temp2|...adc.@|
|00002a50| 74 65 6d 70 0d 09 09 73 | 74 61 09 40 74 65 6d 70 |temp...s|ta.@temp|
|00002a60| 0d 09 09 74 78 61 0d 09 | 09 61 64 63 09 40 74 65 |...txa..|.adc.@te|
|00002a70| 6d 70 32 0d 09 09 61 73 | 6c 09 40 74 65 6d 70 0d |mp2...as|l.@temp.|
|00002a80| 09 09 72 6f 6c 09 61 0d | 09 09 73 74 61 09 40 74 |..rol.a.|..sta.@t|
|00002a90| 65 6d 70 32 0d 09 09 70 | 6c 61 0d 09 09 61 64 63 |emp2...p|la...adc|
|00002aa0| 09 40 74 65 6d 70 0d 09 | 09 73 74 61 09 40 74 65 |.@temp..|.sta.@te|
|00002ab0| 6d 70 0d 09 09 62 63 63 | 09 40 61 0d 09 09 69 6e |mp...bcc|.@a...in|
|00002ac0| 63 09 40 74 65 6d 70 32 | 0d 09 09 62 63 73 09 40 |c.@temp2|...bcs.@|
|00002ad0| 61 09 09 3b 41 6c 77 61 | 79 73 2e 0d 40 65 78 69 |a..;Alwa|ys..@exi|
|00002ae0| 74 09 09 73 74 79 09 6e | 65 78 74 63 68 72 09 09 |t..sty.n|extchr..|
|00002af0| 3b 53 61 76 65 20 6e 65 | 78 74 20 63 68 61 72 61 |;Save ne|xt chara|
|00002b00| 63 74 65 72 20 6c 6f 63 | 61 74 69 6f 6e 2e 0d 09 |cter loc|ation...|
|00002b10| 09 6c 64 78 09 63 75 72 | 72 65 6e 74 73 74 72 0d |.ldx.cur|rentstr.|
|00002b20| 09 09 6c 64 61 09 40 74 | 65 6d 70 09 09 3b 52 65 |..lda.@t|emp..;Re|
|00002b30| 74 75 72 6e 20 76 61 6c | 75 65 20 69 6e 20 61 63 |turn val|ue in ac|
|00002b40| 63 2c 79 72 65 67 2e 0d | 09 09 6c 64 79 09 40 74 |c,yreg..|..ldy.@t|
|00002b50| 65 6d 70 32 0d 09 09 72 | 6f 72 09 73 74 72 73 69 |emp2...r|or.strsi|
|00002b60| 67 6e 09 09 3b 53 68 6f | 75 6c 64 20 62 65 20 6e |gn..;Sho|uld be n|
|00002b70| 65 67 61 74 69 76 65 2e | 0d 09 09 62 63 63 09 40 |egative.|...bcc.@|
|00002b80| 72 74 73 0d 09 09 65 6f | 72 09 23 24 46 46 0d 09 |rts...eo|r.#$FF..|
|00002b90| 09 61 64 63 09 23 30 09 | 09 3b 63 73 65 74 0d 09 |.adc.#0.|.;cset..|
|00002ba0| 09 70 68 61 0d 09 09 74 | 79 61 0d 09 09 65 6f 72 |.pha...t|ya...eor|
|00002bb0| 09 23 24 46 46 0d 09 09 | 61 64 63 09 23 30 0d 09 |.#$FF...|adc.#0..|
|00002bc0| 09 74 61 79 0d 09 09 70 | 6c 61 0d 40 72 74 73 09 |.tay...p|la.@rts.|
|00002bd0| 09 72 74 73 0d 40 67 65 | 74 63 68 72 09 09 6c 64 |.rts.@ge|tchr..ld|
|00002be0| 61 09 24 32 30 30 30 2c | 79 09 09 3b 41 64 64 72 |a.$2000,|y..;Addr|
|00002bf0| 65 73 73 20 6d 6f 64 69 | 66 69 65 64 2e 0d 09 09 |ess modi|fied....|
|00002c00| 72 74 73 0d 40 68 65 78 | 09 09 69 6e 79 0d 09 09 |rts.@hex|..iny...|
|00002c10| 63 70 79 09 73 74 72 6c | 65 6e 0d 09 09 62 63 73 |cpy.strl|en...bcs|
|00002c20| 09 40 65 78 69 74 0d 09 | 09 6a 73 72 09 40 67 65 |.@exit..|.jsr.@ge|
|00002c30| 74 63 68 72 0d 09 09 63 | 6d 70 09 23 27 30 27 0d |tchr...c|mp.#'0'.|
|00002c40| 09 09 62 63 63 09 40 65 | 78 69 74 0d 09 09 63 6d |..bcc.@e|xit...cm|
|00002c50| 70 09 23 27 39 27 2b 31 | 0d 09 09 62 63 63 09 40 |p.#'9'+1|...bcc.@|
|00002c60| 68 65 78 64 69 67 69 74 | 0d 09 09 61 6e 64 09 23 |hexdigit|...and.#|
|00002c70| 24 35 46 0d 09 09 63 6d | 70 09 23 27 41 27 0d 09 |$5F...cm|p.#'A'..|
|00002c80| 09 62 63 63 09 40 65 78 | 69 74 0d 09 09 63 6d 70 |.bcc.@ex|it...cmp|
|00002c90| 09 23 27 5a 27 2b 31 0d | 09 09 62 63 73 09 40 65 |.#'Z'+1.|..bcs.@e|
|00002ca0| 78 69 74 0d 09 09 73 62 | 63 09 23 36 09 09 3b 43 |xit...sb|c.#6..;C|
|00002cb0| 61 72 72 79 20 63 6c 65 | 61 72 2e 0d 40 68 65 78 |arry cle|ar..@hex|
|00002cc0| 64 69 67 69 74 09 61 73 | 6c 09 40 74 65 6d 70 0d |digit.as|l.@temp.|
|00002cd0| 09 09 72 6f 6c 09 40 74 | 65 6d 70 32 0d 09 09 61 |..rol.@t|emp2...a|
|00002ce0| 73 6c 09 40 74 65 6d 70 | 0d 09 09 72 6f 6c 09 40 |sl.@temp|...rol.@|
|00002cf0| 74 65 6d 70 32 0d 09 09 | 61 73 6c 09 40 74 65 6d |temp2...|asl.@tem|
|00002d00| 70 0d 09 09 72 6f 6c 09 | 40 74 65 6d 70 32 0d 09 |p...rol.|@temp2..|
|00002d10| 09 61 73 6c 09 40 74 65 | 6d 70 0d 09 09 72 6f 6c |.asl.@te|mp...rol|
|00002d20| 09 40 74 65 6d 70 32 0d | 09 09 61 6e 64 09 23 24 |.@temp2.|..and.#$|
|00002d30| 30 46 0d 09 09 6f 72 61 | 09 40 74 65 6d 70 0d 09 |0F...ora|.@temp..|
|00002d40| 09 73 74 61 09 40 74 65 | 6d 70 0d 09 09 6a 6d 70 |.sta.@te|mp...jmp|
|00002d50| 09 40 68 65 78 0d 40 74 | 65 6d 70 09 09 64 63 2e |.@hex.@t|emp..dc.|
|00002d60| 62 09 30 0d 40 74 65 6d | 70 32 09 09 64 63 2e 62 |b.0.@tem|p2..dc.b|
|00002d70| 09 30 0d 09 09 65 6e 64 | 70 0d 0d 2a 2a 2a 0d 0d |.0...end|p..***..|
|00002d80| 0d 09 09 65 78 70 6f 72 | 74 09 73 74 72 69 6e 66 |...expor|t.strinf|
|00002d90| 6f 0d 73 74 72 69 6e 66 | 6f 09 09 70 72 6f 63 0d |o.strinf|o..proc.|
|00002da0| 09 09 65 78 70 6f 72 74 | 09 63 75 72 72 65 6e 74 |..export|.current|
|00002db0| 73 74 72 2c 20 73 74 72 | 6c 65 6e 2c 20 6d 61 78 |str, str|len, max|
|00002dc0| 73 74 72 6c 65 6e 2c 20 | 6e 75 6d 63 68 72 73 0d |strlen, |numchrs.|
|00002dd0| 09 09 65 78 70 6f 72 74 | 09 73 74 72 73 69 67 6e |..export|.strsign|
|00002de0| 2c 20 6e 65 78 74 63 68 | 72 0d 09 09 69 6d 70 6f |, nextch|r...impo|
|00002df0| 72 74 09 73 74 72 6c 65 | 6e 73 2c 20 6d 61 78 73 |rt.strle|ns, maxs|
|00002e00| 74 72 6c 65 6e 73 2c 20 | 73 74 72 6c 6f 63 73 2c |trlens, |strlocs,|
|00002e10| 20 6e 75 6d 74 6f 63 6f | 70 79 0d 09 09 73 74 78 | numtoco|py...stx|
|00002e20| 09 63 75 72 72 65 6e 74 | 73 74 72 0d 09 09 6c 64 |.current|str...ld|
|00002e30| 61 09 73 74 72 6c 65 6e | 73 2c 78 09 3b 53 74 72 |a.strlen|s,x.;Str|
|00002e40| 69 6e 67 20 6e 75 6d 62 | 65 72 20 69 6e 20 78 72 |ing numb|er in xr|
|00002e50| 65 67 2e 0d 09 09 73 74 | 61 09 73 74 72 6c 65 6e |eg....st|a.strlen|
|00002e60| 0d 09 09 6c 64 61 09 6d | 61 78 73 74 72 6c 65 6e |...lda.m|axstrlen|
|00002e70| 73 2c 78 0d 09 09 73 74 | 61 09 6d 61 78 73 74 72 |s,x...st|a.maxstr|
|00002e80| 6c 65 6e 0d 09 09 74 78 | 61 0d 09 09 61 73 6c 09 |len...tx|a...asl.|
|00002e90| 61 0d 09 09 74 61 78 0d | 09 09 62 63 73 09 40 61 |a...tax.|..bcs.@a|
|00002ea0| 0d 09 09 6c 64 61 09 73 | 74 72 6c 6f 63 73 2c 78 |...lda.s|trlocs,x|
|00002eb0| 0d 09 09 70 68 61 0d 09 | 09 6c 64 61 09 73 74 72 |...pha..|.lda.str|
|00002ec0| 6c 6f 63 73 2b 31 2c 78 | 0d 09 09 74 61 78 0d 09 |locs+1,x|...tax..|
|00002ed0| 09 70 6c 61 0d 09 09 72 | 74 73 0d 40 61 09 09 6c |.pla...r|ts.@a..l|
|00002ee0| 64 61 09 73 74 72 6c 6f | 63 73 2b 24 31 30 30 2c |da.strlo|cs+$100,|
|00002ef0| 78 0d 09 09 70 68 61 0d | 09 09 6c 64 61 09 73 74 |x...pha.|..lda.st|
|00002f00| 72 6c 6f 63 73 2b 24 31 | 30 31 2c 78 0d 09 09 74 |rlocs+$1|01,x...t|
|00002f10| 61 78 0d 09 09 70 6c 61 | 0d 09 09 72 74 73 0d 63 |ax...pla|...rts.c|
|00002f20| 75 72 72 65 6e 74 73 74 | 72 09 64 63 2e 62 09 30 |urrentst|r.dc.b.0|
|00002f30| 0d 73 74 72 6c 65 6e 09 | 09 64 63 2e 62 09 30 0d |.strlen.|.dc.b.0.|
|00002f40| 6d 61 78 73 74 72 6c 65 | 6e 09 64 63 2e 62 09 30 |maxstrle|n.dc.b.0|
|00002f50| 0d 6e 75 6d 63 68 72 73 | 09 09 64 63 2e 62 09 30 |.numchrs|..dc.b.0|
|00002f60| 0d 73 74 72 73 69 67 6e | 09 09 64 63 2e 62 09 30 |.strsign|..dc.b.0|
|00002f70| 0d 6e 65 78 74 63 68 72 | 09 09 64 63 2e 62 09 30 |.nextchr|..dc.b.0|
|00002f80| 0d 09 09 65 6e 64 70 0d | 0d 2a 2a 2a 0d 0d 09 09 |...endp.|.***....|
|00002f90| 65 78 70 6f 72 74 09 70 | 72 73 74 72 0d 70 72 73 |export.p|rstr.prs|
|00002fa0| 74 72 09 09 70 72 6f 63 | 0d 09 09 6c 64 61 09 23 |tr..proc|...lda.#|
|00002fb0| 32 35 35 09 09 3b 78 72 | 65 67 3d 73 74 72 20 2d |255..;xr|eg=str -|
|00002fc0| 2d 20 77 72 69 74 65 20 | 65 6e 74 69 72 65 20 73 |- write |entire s|
|00002fd0| 74 72 69 6e 67 2e 0d 09 | 09 65 78 70 6f 72 74 09 |tring...|.export.|
|00002fe0| 70 72 6c 65 66 74 73 74 | 72 2c 20 70 72 6d 69 64 |prleftst|r, prmid|
|00002ff0| 73 74 72 0d 0d 70 72 6c | 65 66 74 73 74 72 09 6c |str..prl|eftstr.l|
|00003000| 64 79 09 23 30 09 09 3b | 78 72 65 67 3d 73 74 72 |dy.#0..;|xreg=str|
|00003010| 2c 20 61 63 63 3d 6e 75 | 6d 43 68 72 73 0d 0d 70 |, acc=nu|mChrs..p|
|00003020| 72 6d 69 64 73 74 72 09 | 09 63 6d 70 09 23 30 0d |rmidstr.|.cmp.#0.|
|00003030| 09 09 62 65 71 09 40 65 | 78 69 74 0d 09 09 73 74 |..beq.@e|xit...st|
|00003040| 61 09 6e 75 6d 63 68 72 | 73 09 09 3b 78 72 65 67 |a.numchr|s..;xreg|
|00003050| 3d 73 74 72 2c 20 61 63 | 63 3d 6e 75 6d 43 68 72 |=str, ac|c=numChr|
|00003060| 73 2c 20 79 72 65 67 3d | 73 74 61 72 74 69 6e 67 |s, yreg=|starting|
|00003070| 20 63 68 72 2e 0d 09 09 | 6a 73 72 09 73 74 72 69 | chr....|jsr.stri|
|00003080| 6e 66 6f 0d 09 09 73 74 | 61 09 40 67 65 74 63 68 |nfo...st|a.@getch|
|00003090| 72 2b 31 0d 09 09 73 74 | 78 09 40 67 65 74 63 68 |r+1...st|x.@getch|
|000030a0| 72 2b 32 0d 40 6c 6f 6f | 70 09 09 63 70 79 09 73 |r+2.@loo|p..cpy.s|
|000030b0| 74 72 6c 65 6e 0d 09 09 | 62 63 73 09 40 65 78 69 |trlen...|bcs.@exi|
|000030c0| 74 0d 09 09 74 79 61 0d | 09 09 70 68 61 0d 40 67 |t...tya.|..pha.@g|
|000030d0| 65 74 63 68 72 09 09 6c | 64 61 09 24 32 30 30 30 |etchr..l|da.$2000|
|000030e0| 2c 79 09 09 3b 41 64 64 | 72 65 73 73 20 6d 6f 64 |,y..;Add|ress mod|
|000030f0| 69 66 69 65 64 2e 0d 09 | 09 6a 73 72 09 72 74 63 |ified...|.jsr.rtc|
|00003100| 6f 75 74 0d 09 09 70 6c | 61 0d 09 09 74 61 79 0d |out...pl|a...tay.|
|00003110| 09 09 69 6e 79 0d 09 09 | 64 65 63 09 6e 75 6d 63 |..iny...|dec.numc|
|00003120| 68 72 73 0d 09 09 62 6e | 65 09 40 6c 6f 6f 70 0d |hrs...bn|e.@loop.|
|00003130| 40 65 78 69 74 09 09 6c | 64 78 09 63 75 72 72 65 |@exit..l|dx.curre|
|00003140| 6e 74 73 74 72 0d 09 09 | 72 74 73 0d 09 09 65 6e |ntstr...|rts...en|
|00003150| 64 70 0d 0d 2a 2a 2a 0d | 0d 09 09 65 78 70 6f 72 |dp..***.|...expor|
|00003160| 74 09 6c 65 66 74 73 74 | 72 63 70 79 0d 6c 65 66 |t.leftst|rcpy.lef|
|00003170| 74 73 74 72 63 70 79 09 | 70 72 6f 63 0d 09 09 65 |tstrcpy.|proc...e|
|00003180| 78 70 6f 72 74 09 73 74 | 72 63 70 79 2c 20 6d 69 |xport.st|rcpy, mi|
|00003190| 64 73 74 72 63 70 79 0d | 09 09 69 6d 70 6f 72 74 |dstrcpy.|..import|
|000031a0| 09 6e 75 6d 74 6f 63 6f | 70 79 2c 20 63 6f 70 79 |.numtoco|py, copy|
|000031b0| 73 74 72 0d 09 09 73 74 | 61 09 6e 75 6d 74 6f 63 |str...st|a.numtoc|
|000031c0| 6f 70 79 09 3b 4e 75 6d | 62 65 72 20 74 6f 20 63 |opy.;Num|ber to c|
|000031d0| 6f 70 79 20 69 6e 20 61 | 63 63 2e 0d 0d 73 74 72 |opy in a|cc...str|
|000031e0| 63 70 79 09 09 6c 64 61 | 09 23 30 09 09 3b 43 6f |cpy..lda|.#0..;Co|
|000031f0| 70 79 20 65 6e 74 69 72 | 65 20 73 74 72 69 6e 67 |py entir|e string|
|00003200| 2e 0d 0d 6d 69 64 73 74 | 72 63 70 79 09 63 6c 63 |...midst|rcpy.clc|
|00003210| 09 09 09 3b 53 74 72 69 | 6e 67 20 6f 66 66 73 65 |...;Stri|ng offse|
|00003220| 74 20 69 6e 20 61 63 63 | 2e 0d 09 09 6a 6d 70 09 |t in acc|....jmp.|
|00003230| 63 6f 70 79 73 74 72 09 | 09 3b 6a 6d 70 2c 20 69 |copystr.|.;jmp, i|
|00003240| 6e 73 74 65 61 64 20 6f | 66 20 62 63 63 20 73 6f |nstead o|f bcc so|
|00003250| 20 77 65 20 63 61 6e 20 | 62 65 20 61 20 6c 69 62 | we can |be a lib|
|00003260| 2e 0d 09 09 65 6e 64 70 | 0d 0d 2a 2a 2a 0d 0d 09 |....endp|..***...|
|00003270| 09 65 78 70 6f 72 74 09 | 6c 65 66 74 73 74 72 63 |.export.|leftstrc|
|00003280| 61 74 0d 6c 65 66 74 73 | 74 72 63 61 74 09 70 72 |at.lefts|trcat.pr|
|00003290| 6f 63 0d 09 09 65 78 70 | 6f 72 74 09 73 74 72 63 |oc...exp|ort.strc|
|000032a0| 61 74 2c 20 6d 69 64 73 | 74 72 63 61 74 2c 20 63 |at, mids|trcat, c|
|000032b0| 6f 70 79 73 74 72 0d 09 | 09 69 6d 70 6f 72 74 09 |opystr..|.import.|
|000032c0| 73 74 72 6c 65 6e 73 2c | 20 73 74 72 6c 6f 63 73 |strlens,| strlocs|
|000032d0| 0d 09 09 73 74 61 09 6e | 75 6d 74 6f 63 6f 70 79 |...sta.n|umtocopy|
|000032e0| 09 3b 4e 75 6d 62 65 72 | 20 74 6f 20 61 70 70 65 |.;Number| to appe|
|000032f0| 6e 64 20 69 6e 20 61 63 | 63 2e 0d 0d 73 74 72 63 |nd in ac|c...strc|
|00003300| 61 74 09 09 6c 64 61 09 | 23 30 09 09 3b 41 70 70 |at..lda.|#0..;App|
|00003310| 65 6e 64 20 65 6e 74 69 | 72 65 20 73 74 72 69 6e |end enti|re strin|
|00003320| 67 2e 0d 0d 6d 69 64 73 | 74 72 63 61 74 09 73 65 |g...mids|trcat.se|
|00003330| 63 09 09 09 3b 53 74 72 | 69 6e 67 20 6f 66 66 73 |c...;Str|ing offs|
|00003340| 65 74 20 69 6e 20 61 63 | 63 2e 0d 0d 63 6f 70 79 |et in ac|c...copy|
|00003350| 73 74 72 09 09 70 68 61 | 09 09 09 3b 4b 65 65 70 |str..pha|...;Keep|
|00003360| 20 73 6f 75 72 63 65 20 | 6f 66 66 73 65 74 2e 0d | source |offset..|
|00003370| 09 09 70 68 70 09 09 09 | 3b 4b 65 65 70 20 63 6f |..php...|;Keep co|
|00003380| 70 79 20 6f 72 20 61 70 | 70 65 6e 64 20 73 74 61 |py or ap|pend sta|
|00003390| 74 75 73 2e 0d 09 09 6a | 73 72 09 73 74 72 69 6e |tus....j|sr.strin|
|000033a0| 66 6f 0d 09 09 73 74 61 | 09 40 64 73 74 2b 31 0d |fo...sta|.@dst+1.|
|000033b0| 09 09 73 74 78 09 40 64 | 73 74 2b 32 0d 09 09 6c |..stx.@d|st+2...l|
|000033c0| 64 61 09 73 74 72 6c 65 | 6e 73 2c 79 0d 09 09 73 |da.strle|ns,y...s|
|000033d0| 74 61 09 40 73 72 63 73 | 74 72 6c 65 6e 0d 09 09 |ta.@srcs|trlen...|
|000033e0| 74 79 61 0d 09 09 61 73 | 6c 09 61 0d 09 09 74 61 |tya...as|l.a...ta|
|000033f0| 79 0d 09 09 62 63 73 09 | 40 61 0d 09 09 6c 64 61 |y...bcs.|@a...lda|
|00003400| 09 73 74 72 6c 6f 63 73 | 2c 79 0d 09 09 73 74 61 |.strlocs|,y...sta|
|00003410| 09 40 73 72 63 2b 31 0d | 09 09 6c 64 61 09 73 74 |.@src+1.|..lda.st|
|00003420| 72 6c 6f 63 73 2b 31 2c | 79 0d 09 09 73 74 61 09 |rlocs+1,|y...sta.|
|00003430| 40 73 72 63 2b 32 0d 09 | 09 62 63 63 09 40 62 0d |@src+2..|.bcc.@b.|
|00003440| 40 61 09 09 6c 64 61 09 | 73 74 72 6c 6f 63 73 2b |@a..lda.|strlocs+|
|00003450| 24 31 30 30 2c 79 0d 09 | 09 73 74 61 09 40 73 72 |$100,y..|.sta.@sr|
|00003460| 63 2b 31 0d 09 09 6c 64 | 61 09 73 74 72 6c 6f 63 |c+1...ld|a.strloc|
|00003470| 73 2b 24 31 30 31 2c 79 | 0d 09 09 73 74 61 09 40 |s+$101,y|...sta.@|
|00003480| 73 72 63 2b 32 0d 40 62 | 09 09 6c 64 78 09 23 30 |src+2.@b|..ldx.#0|
|00003490| 0d 09 09 70 6c 70 09 09 | 09 3b 47 65 74 20 63 6f |...plp..|.;Get co|
|000034a0| 70 79 20 6f 72 20 61 70 | 70 65 6e 64 20 73 74 61 |py or ap|pend sta|
|000034b0| 74 75 73 2e 0d 09 09 62 | 63 63 09 40 63 09 09 3b |tus....b|cc.@c..;|
|000034c0| 43 6f 70 79 20 73 74 61 | 74 75 73 2e 0d 09 09 6c |Copy sta|tus....l|
|000034d0| 64 78 09 73 74 72 6c 65 | 6e 09 09 3b 41 70 70 65 |dx.strle|n..;Appe|
|000034e0| 6e 64 20 73 74 61 74 75 | 73 2e 0d 40 63 09 09 70 |nd statu|s..@c..p|
|000034f0| 6c 61 0d 09 09 74 61 79 | 09 09 09 3b 53 6f 75 72 |la...tay|...;Sour|
|00003500| 63 65 20 6f 66 66 73 65 | 74 2e 0d 40 6c 6f 6f 70 |ce offse|t..@loop|
|00003510| 09 09 63 70 79 09 40 73 | 72 63 73 74 72 6c 65 6e |..cpy.@s|rcstrlen|
|00003520| 0d 09 09 62 63 73 09 40 | 65 78 69 74 0d 09 09 63 |...bcs.@|exit...c|
|00003530| 70 78 09 6d 61 78 73 74 | 72 6c 65 6e 0d 09 09 62 |px.maxst|rlen...b|
|00003540| 63 73 09 40 65 78 69 74 | 0d 40 73 72 63 09 09 6c |cs.@exit|.@src..l|
|00003550| 64 61 09 24 32 30 30 30 | 2c 79 09 09 3b 41 64 64 |da.$2000|,y..;Add|
|00003560| 72 65 73 73 20 6d 6f 64 | 69 66 69 65 64 2e 0d 40 |ress mod|ified..@|
|00003570| 64 73 74 09 09 73 74 61 | 09 24 32 30 30 30 2c 78 |dst..sta|.$2000,x|
|00003580| 09 09 3b 41 64 64 72 65 | 73 73 20 6d 6f 64 69 66 |..;Addre|ss modif|
|00003590| 69 65 64 2e 0d 09 09 69 | 6e 78 0d 09 09 69 6e 79 |ied....i|nx...iny|
|000035a0| 0d 09 09 64 65 63 09 6e | 75 6d 74 6f 63 6f 70 79 |...dec.n|umtocopy|
|000035b0| 0d 09 09 62 6e 65 09 40 | 6c 6f 6f 70 0d 40 65 78 |...bne.@|loop.@ex|
|000035c0| 69 74 09 09 6c 64 61 09 | 23 32 35 35 09 09 3b 53 |it..lda.|#255..;S|
|000035d0| 65 74 20 69 74 20 62 61 | 63 6b 20 66 6f 72 20 6e |et it ba|ck for n|
|000035e0| 65 78 74 20 6d 69 64 73 | 74 72 20 6f 70 65 72 61 |ext mids|tr opera|
|000035f0| 74 69 6f 6e 2e 0d 09 09 | 73 74 61 09 6e 75 6d 74 |tion....|sta.numt|
|00003600| 6f 63 6f 70 79 09 3b 54 | 68 65 20 6e 65 78 74 20 |ocopy.;T|he next |
|00003610| 6f 6e 65 20 6d 61 79 20 | 6f 6e 6c 79 20 68 61 76 |one may |only hav|
|00003620| 65 20 33 20 70 61 72 61 | 6d 65 74 65 72 73 2e 0d |e 3 para|meters..|
|00003630| 09 09 74 78 61 09 09 09 | 3b 78 72 65 67 20 68 61 |..txa...|;xreg ha|
|00003640| 73 20 64 65 73 74 69 6e | 61 74 69 6f 6e 20 73 74 |s destin|ation st|
|00003650| 72 69 6e 67 20 6c 65 6e | 67 74 68 2e 0d 09 09 6c |ring len|gth....l|
|00003660| 64 78 09 63 75 72 72 65 | 6e 74 73 74 72 0d 09 09 |dx.curre|ntstr...|
|00003670| 73 74 61 09 73 74 72 6c | 65 6e 73 2c 78 0d 09 09 |sta.strl|ens,x...|
|00003680| 72 74 73 0d 40 73 72 63 | 73 74 72 6c 65 6e 09 64 |rts.@src|strlen.d|
|00003690| 63 2e 62 09 30 0d 09 09 | 65 6e 64 70 0d 0d 2a 2a |c.b.0...|endp..**|
|000036a0| 2a 0d 0d 09 09 65 78 70 | 6f 72 74 09 6c 69 74 73 |*....exp|ort.lits|
|000036b0| 74 72 0d 6c 69 74 73 74 | 72 09 09 70 72 6f 63 0d |tr.litst|r..proc.|
|000036c0| 09 09 69 6d 70 6f 72 74 | 09 73 74 72 6c 65 6e 73 |..import|.strlens|
|000036d0| 0d 09 09 70 6c 61 0d 09 | 09 73 74 61 09 40 67 65 |...pla..|.sta.@ge|
|000036e0| 74 63 68 72 2b 31 0d 09 | 09 70 6c 61 0d 09 09 73 |tchr+1..|.pla...s|
|000036f0| 74 61 09 40 67 65 74 63 | 68 72 2b 32 0d 09 09 6a |ta.@getc|hr+2...j|
|00003700| 73 72 09 73 74 72 69 6e | 66 6f 0d 09 09 73 74 61 |sr.strin|fo...sta|
|00003710| 09 40 70 75 74 63 68 72 | 2b 31 0d 09 09 73 74 78 |.@putchr|+1...stx|
|00003720| 09 40 70 75 74 63 68 72 | 2b 32 0d 09 09 6c 64 79 |.@putchr|+2...ldy|
|00003730| 09 23 30 0d 40 6c 6f 6f | 70 09 09 69 6e 63 09 40 |.#0.@loo|p..inc.@|
|00003740| 67 65 74 63 68 72 2b 31 | 0d 09 09 62 6e 65 09 40 |getchr+1|...bne.@|
|00003750| 67 65 74 63 68 72 0d 09 | 09 69 6e 63 09 40 67 65 |getchr..|.inc.@ge|
|00003760| 74 63 68 72 2b 32 0d 40 | 67 65 74 63 68 72 09 09 |tchr+2.@|getchr..|
|00003770| 6c 64 61 09 24 32 30 30 | 30 09 09 3b 41 64 64 72 |lda.$200|0..;Addr|
|00003780| 65 73 73 20 6d 6f 64 69 | 66 69 65 64 2e 0d 09 09 |ess modi|fied....|
|00003790| 62 65 71 09 40 65 78 69 | 74 0d 09 09 63 70 79 09 |beq.@exi|t...cpy.|
|000037a0| 6d 61 78 73 74 72 6c 65 | 6e 0d 09 09 62 63 73 09 |maxstrle|n...bcs.|
|000037b0| 40 6c 6f 6f 70 0d 40 70 | 75 74 63 68 72 09 09 73 |@loop.@p|utchr..s|
|000037c0| 74 61 09 24 32 30 30 30 | 2c 79 0d 09 09 69 6e 79 |ta.$2000|,y...iny|
|000037d0| 0d 09 09 62 6e 65 09 40 | 6c 6f 6f 70 0d 40 65 78 |...bne.@|loop.@ex|
|000037e0| 69 74 09 09 6c 64 61 09 | 40 67 65 74 63 68 72 2b |it..lda.|@getchr+|
|000037f0| 32 0d 09 09 70 68 61 0d | 09 09 6c 64 61 09 40 67 |2...pha.|..lda.@g|
|00003800| 65 74 63 68 72 2b 31 0d | 09 09 70 68 61 0d 09 09 |etchr+1.|..pha...|
|00003810| 6c 64 78 09 63 75 72 72 | 65 6e 74 73 74 72 0d 09 |ldx.curr|entstr..|
|00003820| 09 74 79 61 0d 09 09 73 | 74 61 09 73 74 72 6c 65 |.tya...s|ta.strle|
|00003830| 6e 73 2c 78 0d 09 09 72 | 74 73 0d 09 09 65 6e 64 |ns,x...r|ts...end|
|00003840| 70 0d 0d 2a 2a 2a 0d 0d | 09 09 65 78 70 6f 72 74 |p..***..|..export|
|00003850| 09 73 74 72 63 68 72 0d | 73 74 72 63 68 72 09 09 |.strchr.|strchr..|
|00003860| 70 72 6f 63 0d 09 09 74 | 61 79 0d 09 09 6a 73 72 |proc...t|ay...jsr|
|00003870| 09 73 74 72 69 6e 66 6f | 0d 09 09 73 74 61 09 40 |.strinfo|...sta.@|
|00003880| 67 65 74 63 68 72 2b 31 | 0d 09 09 73 74 78 09 40 |getchr+1|...stx.@|
|00003890| 67 65 74 63 68 72 2b 32 | 0d 40 67 65 74 63 68 72 |getchr+2|.@getchr|
|000038a0| 09 09 6c 64 61 09 24 32 | 30 30 30 2c 79 0d 09 09 |..lda.$2|000,y...|
|000038b0| 6c 64 78 09 63 75 72 72 | 65 6e 74 73 74 72 0d 09 |ldx.curr|entstr..|
|000038c0| 09 72 74 73 0d 09 09 65 | 6e 64 70 0d 0d 2a 2a 2a |.rts...e|ndp..***|
|000038d0| 0d 0d 09 09 65 78 70 6f | 72 74 09 73 74 72 6c 6f |....expo|rt.strlo|
|000038e0| 63 0d 73 74 72 6c 6f 63 | 09 09 70 72 6f 63 0d 09 |c.strloc|..proc..|
|000038f0| 09 6a 73 72 09 73 74 72 | 69 6e 66 6f 0d 09 09 70 |.jsr.str|info...p|
|00003900| 68 61 0d 09 09 74 78 61 | 0d 09 09 74 61 79 0d 09 |ha...txa|...tay..|
|00003910| 09 6c 64 78 09 63 75 72 | 72 65 6e 74 73 74 72 0d |.ldx.cur|rentstr.|
|00003920| 09 09 70 6c 61 0d 09 09 | 72 74 73 0d 09 09 65 6e |..pla...|rts...en|
|00003930| 64 70 0d 0d 2a 2a 2a 0d | 2a 2a 2a 0d 2a 2a 2a 0d |dp..***.|***.***.|
|00003940| 0d 09 09 65 78 70 6f 72 | 74 09 72 65 73 74 6f 72 |...expor|t.restor|
|00003950| 65 0d 72 65 73 74 6f 72 | 65 09 09 70 72 6f 63 0d |e.restor|e..proc.|
|00003960| 09 09 69 6d 70 6f 72 74 | 09 67 65 74 64 61 74 61 |..import|.getdata|
|00003970| 62 79 74 65 0d 09 09 73 | 74 61 09 67 65 74 64 61 |byte...s|ta.getda|
|00003980| 74 61 62 79 74 65 2b 31 | 0d 09 09 73 74 79 09 67 |tabyte+1|...sty.g|
|00003990| 65 74 64 61 74 61 62 79 | 74 65 2b 32 0d 09 09 72 |etdataby|te+2...r|
|000039a0| 74 73 0d 09 09 65 6e 64 | 70 0d 0d 2a 2a 2a 0d 0d |ts...end|p..***..|
|000039b0| 09 09 65 78 70 6f 72 74 | 09 67 65 74 64 61 74 61 |..export|.getdata|
|000039c0| 62 79 74 65 0d 67 65 74 | 64 61 74 61 62 79 74 65 |byte.get|databyte|
|000039d0| 09 70 72 6f 63 0d 09 09 | 6c 64 61 09 24 32 30 30 |.proc...|lda.$200|
|000039e0| 30 0d 09 09 69 6e 63 09 | 67 65 74 64 61 74 61 62 |0...inc.|getdatab|
|000039f0| 79 74 65 2b 31 0d 09 09 | 62 6e 65 09 40 72 74 73 |yte+1...|bne.@rts|
|00003a00| 0d 09 09 69 6e 63 09 67 | 65 74 64 61 74 61 62 79 |...inc.g|etdataby|
|00003a10| 74 65 2b 32 0d 40 72 74 | 73 09 09 72 74 73 0d 09 |te+2.@rt|s..rts..|
|00003a20| 09 65 6e 64 70 0d 0d 2a | 2a 2a 0d 0d 09 09 65 78 |.endp..*|**....ex|
|00003a30| 70 6f 72 74 09 72 65 61 | 64 69 6e 74 0d 72 65 61 |port.rea|dint.rea|
|00003a40| 64 69 6e 74 09 09 70 72 | 6f 63 0d 09 09 6a 73 72 |dint..pr|oc...jsr|
|00003a50| 09 67 65 74 64 61 74 61 | 62 79 74 65 0d 09 09 73 |.getdata|byte...s|
|00003a60| 74 61 09 76 73 6c 2c 78 | 0d 09 09 70 68 61 0d 09 |ta.vsl,x|...pha..|
|00003a70| 09 6a 73 72 09 67 65 74 | 64 61 74 61 62 79 74 65 |.jsr.get|databyte|
|00003a80| 0d 09 09 73 74 61 09 76 | 73 68 2c 78 0d 09 09 74 |...sta.v|sh,x...t|
|00003a90| 61 79 0d 09 09 70 6c 61 | 0d 09 09 72 74 73 0d 09 |ay...pla|...rts..|
|00003aa0| 09 65 6e 64 70 0d 0d 2a | 2a 2a 0d 0d 09 09 65 78 |.endp..*|**....ex|
|00003ab0| 70 6f 72 74 09 72 65 61 | 64 73 74 72 0d 72 65 61 |port.rea|dstr.rea|
|00003ac0| 64 73 74 72 09 09 70 72 | 6f 63 0d 09 09 69 6d 70 |dstr..pr|oc...imp|
|00003ad0| 6f 72 74 09 73 74 72 6c | 65 6e 73 0d 09 09 6a 73 |ort.strl|ens...js|
|00003ae0| 72 09 73 74 72 69 6e 66 | 6f 0d 09 09 73 74 61 09 |r.strinf|o...sta.|
|00003af0| 40 70 75 74 63 68 72 2b | 31 0d 09 09 73 74 78 09 |@putchr+|1...stx.|
|00003b00| 40 70 75 74 63 68 72 2b | 32 0d 09 09 6c 64 79 09 |@putchr+|2...ldy.|
|00003b10| 23 30 0d 40 6c 6f 6f 70 | 09 09 6a 73 72 09 67 65 |#0.@loop|..jsr.ge|
|00003b20| 74 64 61 74 61 62 79 74 | 65 0d 09 09 63 6d 70 09 |tdatabyt|e...cmp.|
|00003b30| 72 65 61 64 65 6e 64 63 | 68 72 0d 09 09 62 65 71 |readendc|hr...beq|
|00003b40| 09 40 65 78 69 74 0d 09 | 09 63 70 79 09 6d 61 78 |.@exit..|.cpy.max|
|00003b50| 73 74 72 6c 65 6e 0d 09 | 09 62 63 73 09 40 6c 6f |strlen..|.bcs.@lo|
|00003b60| 6f 70 0d 40 70 75 74 63 | 68 72 09 09 73 74 61 09 |op.@putc|hr..sta.|
|00003b70| 24 32 30 30 30 2c 79 0d | 09 09 69 6e 79 0d 09 09 |$2000,y.|..iny...|
|00003b80| 62 6e 65 09 40 6c 6f 6f | 70 0d 40 65 78 69 74 09 |bne.@loo|p.@exit.|
|00003b90| 09 6c 64 78 09 63 75 72 | 72 65 6e 74 73 74 72 0d |.ldx.cur|rentstr.|
|00003ba0| 09 09 74 79 61 0d 09 09 | 73 74 61 09 73 74 72 6c |..tya...|sta.strl|
|00003bb0| 65 6e 73 2c 78 0d 09 09 | 72 74 73 0d 09 09 65 6e |ens,x...|rts...en|
|00003bc0| 64 70 0d 0d 2a 2a 2a 0d | 0d 09 09 65 78 70 6f 72 |dp..***.|...expor|
|00003bd0| 74 09 72 65 61 64 65 6e | 64 0d 72 65 61 64 65 6e |t.readen|d.readen|
|00003be0| 64 09 09 70 72 6f 63 0d | 09 09 73 74 61 09 72 65 |d..proc.|..sta.re|
|00003bf0| 61 64 65 6e 64 63 68 72 | 0d 09 09 72 74 73 0d 09 |adendchr|...rts..|
|00003c00| 09 65 6e 64 70 0d 0d 2a | 2a 2a 0d 2a 2a 2a 0d 2a |.endp..*|**.***.*|
|00003c10| 2a 2a 0d 0d 09 09 65 78 | 70 6f 72 74 09 61 72 72 |**....ex|port.arr|
|00003c20| 61 79 62 61 73 65 0d 61 | 72 72 61 79 62 61 73 65 |aybase.a|rraybase|
|00003c30| 09 70 72 6f 63 0d 09 09 | 65 78 70 6f 72 74 09 61 |.proc...|export.a|
|00003c40| 72 72 61 79 6c 6f 63 31 | 2c 20 61 72 72 61 79 6c |rrayloc1|, arrayl|
|00003c50| 6f 63 32 2c 20 61 72 72 | 61 79 6c 6f 63 33 0d 09 |oc2, arr|ayloc3..|
|00003c60| 09 65 78 70 6f 72 74 09 | 61 72 72 61 79 6c 6f 63 |.export.|arrayloc|
|00003c70| 30 6c 2c 20 61 72 72 61 | 79 6c 6f 63 30 68 0d 09 |0l, arra|yloc0h..|
|00003c80| 09 65 78 70 6f 72 74 09 | 61 72 72 61 79 6c 6f 63 |.export.|arrayloc|
|00003c90| 31 6c 2c 20 61 72 72 61 | 79 6c 6f 63 31 68 0d 09 |1l, arra|yloc1h..|
|00003ca0| 09 65 78 70 6f 72 74 09 | 61 72 72 61 79 6c 6f 63 |.export.|arrayloc|
|00003cb0| 32 6c 2c 20 61 72 72 61 | 79 6c 6f 63 32 68 0d 09 |2l, arra|yloc2h..|
|00003cc0| 09 65 78 70 6f 72 74 09 | 61 72 72 61 79 6c 6f 63 |.export.|arrayloc|
|00003cd0| 33 6c 2c 20 61 72 72 61 | 79 6c 6f 63 33 68 0d 09 |3l, arra|yloc3h..|
|00003ce0| 09 73 74 61 09 61 72 72 | 61 79 6c 6f 63 30 6c 0d |.sta.arr|ayloc0l.|
|00003cf0| 09 09 73 74 79 09 61 72 | 72 61 79 6c 6f 63 30 68 |..sty.ar|rayloc0h|
|00003d00| 0d 61 72 72 61 79 6c 6f | 63 31 09 73 74 61 09 61 |.arraylo|c1.sta.a|
|00003d10| 72 72 61 79 6c 6f 63 31 | 6c 0d 09 09 73 74 79 09 |rrayloc1|l...sty.|
|00003d20| 61 72 72 61 79 6c 6f 63 | 31 68 0d 61 72 72 61 79 |arrayloc|1h.array|
|00003d30| 6c 6f 63 32 09 73 74 61 | 09 61 72 72 61 79 6c 6f |loc2.sta|.arraylo|
|00003d40| 63 32 6c 0d 09 09 73 74 | 79 09 61 72 72 61 79 6c |c2l...st|y.arrayl|
|00003d50| 6f 63 32 68 0d 61 72 72 | 61 79 6c 6f 63 33 09 73 |oc2h.arr|ayloc3.s|
|00003d60| 74 61 09 61 72 72 61 79 | 6c 6f 63 33 6c 0d 09 09 |ta.array|loc3l...|
|00003d70| 73 74 79 09 61 72 72 61 | 79 6c 6f 63 33 68 0d 09 |sty.arra|yloc3h..|
|00003d80| 09 73 74 61 09 61 70 74 | 72 0d 09 09 73 74 79 09 |.sta.apt|r...sty.|
|00003d90| 61 70 74 72 2b 31 0d 09 | 09 72 74 73 0d 61 72 72 |aptr+1..|.rts.arr|
|00003da0| 61 79 6c 6f 63 30 6c 09 | 64 63 2e 62 09 30 0d 61 |ayloc0l.|dc.b.0.a|
|00003db0| 72 72 61 79 6c 6f 63 30 | 68 09 64 63 2e 62 09 30 |rrayloc0|h.dc.b.0|
|00003dc0| 0d 61 72 72 61 79 6c 6f | 63 31 6c 09 64 63 2e 62 |.arraylo|c1l.dc.b|
|00003dd0| 09 30 0d 61 72 72 61 79 | 6c 6f 63 31 68 09 64 63 |.0.array|loc1h.dc|
|00003de0| 2e 62 09 30 0d 61 72 72 | 61 79 6c 6f 63 32 6c 09 |.b.0.arr|ayloc2l.|
|00003df0| 64 63 2e 62 09 30 0d 61 | 72 72 61 79 6c 6f 63 32 |dc.b.0.a|rrayloc2|
|00003e00| 68 09 64 63 2e 62 09 30 | 0d 61 72 72 61 79 6c 6f |h.dc.b.0|.arraylo|
|00003e10| 63 33 6c 09 64 63 2e 62 | 09 30 0d 61 72 72 61 79 |c3l.dc.b|.0.array|
|00003e20| 6c 6f 63 33 68 09 64 63 | 2e 62 09 30 0d 09 09 65 |loc3h.dc|.b.0...e|
|00003e30| 6e 64 70 0d 0d 2a 2a 2a | 0d 0d 09 09 65 78 70 6f |ndp..***|....expo|
|00003e40| 72 74 09 64 69 6d 31 73 | 69 7a 65 0d 64 69 6d 31 |rt.dim1s|ize.dim1|
|00003e50| 73 69 7a 65 09 09 70 72 | 6f 63 0d 09 09 65 78 70 |size..pr|oc...exp|
|00003e60| 6f 72 74 09 64 69 6d 32 | 73 69 7a 65 2c 20 64 69 |ort.dim2|size, di|
|00003e70| 6d 33 73 69 7a 65 0d 09 | 09 65 78 70 6f 72 74 09 |m3size..|.export.|
|00003e80| 64 69 6d 31 73 69 7a 65 | 6c 2c 20 64 69 6d 31 73 |dim1size|l, dim1s|
|00003e90| 69 7a 65 68 0d 09 09 65 | 78 70 6f 72 74 09 64 69 |izeh...e|xport.di|
|00003ea0| 6d 32 73 69 7a 65 6c 2c | 20 64 69 6d 32 73 69 7a |m2sizel,| dim2siz|
|00003eb0| 65 68 0d 09 09 65 78 70 | 6f 72 74 09 64 69 6d 33 |eh...exp|ort.dim3|
|00003ec0| 73 69 7a 65 6c 2c 20 64 | 69 6d 33 73 69 7a 65 68 |sizel, d|im3sizeh|
|00003ed0| 0d 09 09 73 74 61 09 64 | 69 6d 31 73 69 7a 65 6c |...sta.d|im1sizel|
|00003ee0| 0d 09 09 73 74 79 09 64 | 69 6d 31 73 69 7a 65 68 |...sty.d|im1sizeh|
|00003ef0| 0d 64 69 6d 32 73 69 7a | 65 09 09 73 74 61 09 64 |.dim2siz|e..sta.d|
|00003f00| 69 6d 32 73 69 7a 65 6c | 0d 09 09 73 74 79 09 64 |im2sizel|...sty.d|
|00003f10| 69 6d 32 73 69 7a 65 68 | 0d 64 69 6d 33 73 69 7a |im2sizeh|.dim3siz|
|00003f20| 65 09 09 73 74 61 09 64 | 69 6d 33 73 69 7a 65 6c |e..sta.d|im3sizel|
|00003f30| 0d 09 09 73 74 79 09 64 | 69 6d 33 73 69 7a 65 68 |...sty.d|im3sizeh|
|00003f40| 0d 09 09 72 74 73 0d 64 | 69 6d 31 73 69 7a 65 6c |...rts.d|im1sizel|
|00003f50| 09 64 63 2e 62 09 30 0d | 64 69 6d 31 73 69 7a 65 |.dc.b.0.|dim1size|
|00003f60| 68 09 64 63 2e 62 09 30 | 0d 64 69 6d 32 73 69 7a |h.dc.b.0|.dim2siz|
|00003f70| 65 6c 09 64 63 2e 62 09 | 30 0d 64 69 6d 32 73 69 |el.dc.b.|0.dim2si|
|00003f80| 7a 65 68 09 64 63 2e 62 | 09 30 0d 64 69 6d 33 73 |zeh.dc.b|.0.dim3s|
|00003f90| 69 7a 65 6c 09 64 63 2e | 62 09 30 0d 64 69 6d 33 |izel.dc.|b.0.dim3|
|00003fa0| 73 69 7a 65 68 09 64 63 | 2e 62 09 30 0d 09 09 65 |sizeh.dc|.b.0...e|
|00003fb0| 6e 64 70 0d 0d 2a 2a 2a | 0d 0d 09 09 65 78 70 6f |ndp..***|....expo|
|00003fc0| 72 74 09 76 61 72 79 69 | 6e 64 78 31 0d 76 61 72 |rt.varyi|ndx1.var|
|00003fd0| 79 69 6e 64 78 31 09 70 | 72 6f 63 0d 09 09 65 78 |yindx1.p|roc...ex|
|00003fe0| 70 6f 72 74 09 61 72 72 | 61 79 69 6e 64 78 31 0d |port.arr|ayindx1.|
|00003ff0| 09 09 6c 64 61 09 76 73 | 6c 2c 79 0d 09 09 70 68 |..lda.vs|l,y...ph|
|00004000| 61 0d 09 09 6c 64 61 09 | 76 73 68 2c 79 0d 09 09 |a...lda.|vsh,y...|
|00004010| 74 61 79 0d 09 09 70 6c | 61 0d 0d 61 72 72 61 79 |tay...pl|a..array|
|00004020| 69 6e 64 78 31 09 73 74 | 61 09 6d 75 6c 76 61 6c |indx1.st|a.mulval|
|00004030| 6c 0d 09 09 73 74 79 09 | 6d 75 6c 76 61 6c 68 0d |l...sty.|mulvalh.|
|00004040| 09 09 6c 64 61 09 64 69 | 6d 31 73 69 7a 65 6c 0d |..lda.di|m1sizel.|
|00004050| 09 09 6c 64 79 09 64 69 | 6d 31 73 69 7a 65 68 0d |..ldy.di|m1sizeh.|
|00004060| 09 09 6a 73 72 09 6d 75 | 6c 74 69 70 6c 79 0d 09 |..jsr.mu|ltiply..|
|00004070| 09 63 6c 63 0d 09 09 61 | 64 63 09 61 72 72 61 79 |.clc...a|dc.array|
|00004080| 6c 6f 63 30 6c 0d 09 09 | 70 68 61 0d 09 09 74 79 |loc0l...|pha...ty|
|00004090| 61 0d 09 09 61 64 63 09 | 61 72 72 61 79 6c 6f 63 |a...adc.|arrayloc|
|000040a0| 30 68 0d 09 09 74 61 79 | 0d 09 09 70 6c 61 0d 09 |0h...tay|...pla..|
|000040b0| 09 6a 6d 70 09 61 72 72 | 61 79 6c 6f 63 31 0d 09 |.jmp.arr|ayloc1..|
|000040c0| 09 65 6e 64 70 0d 0d 2a | 2a 2a 0d 0d 09 09 65 78 |.endp..*|**....ex|
|000040d0| 70 6f 72 74 09 76 61 72 | 79 69 6e 64 78 32 0d 76 |port.var|yindx2.v|
|000040e0| 61 72 79 69 6e 64 78 32 | 09 70 72 6f 63 0d 09 09 |aryindx2|.proc...|
|000040f0| 65 78 70 6f 72 74 09 61 | 72 72 61 79 69 6e 64 78 |export.a|rrayindx|
|00004100| 32 0d 09 09 6c 64 61 09 | 76 73 6c 2c 79 0d 09 09 |2...lda.|vsl,y...|
|00004110| 70 68 61 0d 09 09 6c 64 | 61 09 76 73 68 2c 79 0d |pha...ld|a.vsh,y.|
|00004120| 09 09 74 61 79 0d 09 09 | 70 6c 61 0d 0d 61 72 72 |..tay...|pla..arr|
|00004130| 61 79 69 6e 64 78 32 09 | 73 74 61 09 6d 75 6c 76 |ayindx2.|sta.mulv|
|00004140| 61 6c 6c 0d 09 09 73 74 | 79 09 6d 75 6c 76 61 6c |all...st|y.mulval|
|00004150| 68 0d 09 09 6c 64 61 09 | 64 69 6d 32 73 69 7a 65 |h...lda.|dim2size|
|00004160| 6c 0d 09 09 6c 64 79 09 | 64 69 6d 32 73 69 7a 65 |l...ldy.|dim2size|
|00004170| 68 0d 09 09 6a 73 72 09 | 6d 75 6c 74 69 70 6c 79 |h...jsr.|multiply|
|00004180| 0d 09 09 63 6c 63 0d 09 | 09 61 64 63 09 61 72 72 |...clc..|.adc.arr|
|00004190| 61 79 6c 6f 63 31 6c 0d | 09 09 70 68 61 0d 09 09 |ayloc1l.|..pha...|
|000041a0| 74 79 61 0d 09 09 61 64 | 63 09 61 72 72 61 79 6c |tya...ad|c.arrayl|
|000041b0| 6f 63 31 68 0d 09 09 74 | 61 79 0d 09 09 70 6c 61 |oc1h...t|ay...pla|
|000041c0| 0d 09 09 6a 6d 70 09 61 | 72 72 61 79 6c 6f 63 32 |...jmp.a|rrayloc2|
|000041d0| 0d 09 09 65 6e 64 70 0d | 0d 2a 2a 2a 0d 0d 09 09 |...endp.|.***....|
|000041e0| 65 78 70 6f 72 74 09 76 | 61 72 79 69 6e 64 78 33 |export.v|aryindx3|
|000041f0| 0d 76 61 72 79 69 6e 64 | 78 33 09 70 72 6f 63 0d |.varyind|x3.proc.|
|00004200| 09 09 65 78 70 6f 72 74 | 09 61 72 72 61 79 69 6e |..export|.arrayin|
|00004210| 64 78 33 0d 09 09 6c 64 | 61 09 76 73 6c 2c 79 0d |dx3...ld|a.vsl,y.|
|00004220| 09 09 70 68 61 0d 09 09 | 6c 64 61 09 76 73 68 2c |..pha...|lda.vsh,|
|00004230| 79 0d 09 09 74 61 79 0d | 09 09 70 6c 61 0d 0d 61 |y...tay.|..pla..a|
|00004240| 72 72 61 79 69 6e 64 78 | 33 09 73 74 61 09 6d 75 |rrayindx|3.sta.mu|
|00004250| 6c 76 61 6c 6c 0d 09 09 | 73 74 79 09 6d 75 6c 76 |lvall...|sty.mulv|
|00004260| 61 6c 68 0d 09 09 6c 64 | 61 09 64 69 6d 33 73 69 |alh...ld|a.dim3si|
|00004270| 7a 65 6c 0d 09 09 6c 64 | 79 09 64 69 6d 33 73 69 |zel...ld|y.dim3si|
|00004280| 7a 65 68 0d 09 09 6a 73 | 72 09 6d 75 6c 74 69 70 |zeh...js|r.multip|
|00004290| 6c 79 0d 09 09 63 6c 63 | 0d 09 09 61 64 63 09 61 |ly...clc|...adc.a|
|000042a0| 72 72 61 79 6c 6f 63 32 | 6c 0d 09 09 70 68 61 0d |rrayloc2|l...pha.|
|000042b0| 09 09 74 79 61 0d 09 09 | 61 64 63 09 61 72 72 61 |..tya...|adc.arra|
|000042c0| 79 6c 6f 63 32 68 0d 09 | 09 74 61 79 0d 09 09 70 |yloc2h..|.tay...p|
|000042d0| 6c 61 0d 09 09 6a 6d 70 | 09 61 72 72 61 79 6c 6f |la...jmp|.arraylo|
|000042e0| 63 33 0d 09 09 65 6e 64 | 70 0d 0d 2a 2a 2a 0d 0d |c3...end|p..***..|
|000042f0| 09 09 65 78 70 6f 72 74 | 09 76 67 65 74 65 6c 65 |..export|.vgetele|
|00004300| 6c 0d 76 67 65 74 65 6c | 65 6c 09 09 70 72 6f 63 |l.vgetel|el..proc|
|00004310| 0d 09 09 65 78 70 6f 72 | 74 09 67 65 74 65 6c 65 |...expor|t.getele|
|00004320| 6c 2c 20 67 65 74 6e 65 | 78 74 65 6c 65 6c 0d 09 |l, getne|xtelel..|
|00004330| 09 6c 64 61 09 76 73 6c | 2c 79 0d 09 09 70 68 61 |.lda.vsl|,y...pha|
|00004340| 0d 09 09 6c 64 61 09 76 | 73 68 2c 79 0d 09 09 74 |...lda.v|sh,y...t|
|00004350| 61 79 0d 09 09 70 6c 61 | 0d 0d 67 65 74 65 6c 65 |ay...pla|..getele|
|00004360| 6c 09 09 63 6c 63 0d 09 | 09 61 64 63 09 61 72 72 |l..clc..|.adc.arr|
|00004370| 61 79 6c 6f 63 33 6c 0d | 09 09 73 74 61 09 61 70 |ayloc3l.|..sta.ap|
|00004380| 74 72 0d 09 09 74 79 61 | 0d 09 09 61 64 63 09 61 |tr...tya|...adc.a|
|00004390| 72 72 61 79 6c 6f 63 33 | 68 0d 09 09 73 74 61 09 |rrayloc3|h...sta.|
|000043a0| 61 70 74 72 2b 31 0d 67 | 65 74 6e 65 78 74 65 6c |aptr+1.g|etnextel|
|000043b0| 65 6c 09 6c 64 79 09 23 | 30 0d 09 09 74 79 61 0d |el.ldy.#|0...tya.|
|000043c0| 09 09 73 74 61 09 76 73 | 68 2c 78 0d 09 09 6c 64 |..sta.vs|h,x...ld|
|000043d0| 61 09 28 61 70 74 72 29 | 2c 79 0d 09 09 73 74 61 |a.(aptr)|,y...sta|
|000043e0| 09 76 73 6c 2c 78 0d 09 | 09 69 6e 63 09 61 70 74 |.vsl,x..|.inc.apt|
|000043f0| 72 0d 09 09 62 6e 65 09 | 40 61 0d 09 09 69 6e 63 |r...bne.|@a...inc|
|00004400| 09 61 70 74 72 2b 31 0d | 40 61 09 09 72 74 73 0d |.aptr+1.|@a..rts.|
|00004410| 09 09 65 6e 64 70 0d 0d | 2a 2a 2a 0d 0d 09 09 65 |..endp..|***....e|
|00004420| 78 70 6f 72 74 09 76 67 | 65 74 65 6c 65 0d 76 67 |xport.vg|etele.vg|
|00004430| 65 74 65 6c 65 09 09 70 | 72 6f 63 0d 09 09 65 78 |etele..p|roc...ex|
|00004440| 70 6f 72 74 09 67 65 74 | 65 6c 65 2c 20 67 65 74 |port.get|ele, get|
|00004450| 6e 65 78 74 65 6c 65 0d | 09 09 6c 64 61 09 76 73 |nextele.|..lda.vs|
|00004460| 6c 2c 79 0d 09 09 70 68 | 61 0d 09 09 6c 64 61 09 |l,y...ph|a...lda.|
|00004470| 76 73 68 2c 79 0d 09 09 | 74 61 79 0d 09 09 70 6c |vsh,y...|tay...pl|
|00004480| 61 0d 0d 67 65 74 65 6c | 65 09 09 61 73 6c 09 61 |a..getel|e..asl.a|
|00004490| 0d 09 09 62 63 63 09 40 | 61 0d 09 09 69 6e 79 0d |...bcc.@|a...iny.|
|000044a0| 40 61 09 09 63 6c 63 0d | 09 09 61 64 63 09 61 72 |@a..clc.|..adc.ar|
|000044b0| 72 61 79 6c 6f 63 33 6c | 0d 09 09 73 74 61 09 61 |rayloc3l|...sta.a|
|000044c0| 70 74 72 0d 09 09 74 79 | 61 0d 09 09 61 64 63 09 |ptr...ty|a...adc.|
|000044d0| 61 72 72 61 79 6c 6f 63 | 33 68 0d 09 09 73 74 61 |arrayloc|3h...sta|
|000044e0| 09 61 70 74 72 2b 31 0d | 67 65 74 6e 65 78 74 65 |.aptr+1.|getnexte|
|000044f0| 6c 65 09 6c 64 79 09 23 | 30 0d 09 09 6c 64 61 09 |le.ldy.#|0...lda.|
|00004500| 28 61 70 74 72 29 2c 79 | 0d 09 09 73 74 61 09 76 |(aptr),y|...sta.v|
|00004510| 73 6c 2c 78 0d 09 09 69 | 6e 63 09 61 70 74 72 0d |sl,x...i|nc.aptr.|
|00004520| 09 09 62 6e 65 09 40 62 | 0d 09 09 69 6e 63 09 61 |..bne.@b|...inc.a|
|00004530| 70 74 72 2b 31 0d 40 62 | 09 09 6c 64 61 09 28 61 |ptr+1.@b|..lda.(a|
|00004540| 70 74 72 29 2c 79 0d 09 | 09 73 74 61 09 76 73 68 |ptr),y..|.sta.vsh|
|00004550| 2c 78 0d 09 09 69 6e 63 | 09 61 70 74 72 0d 09 09 |,x...inc|.aptr...|
|00004560| 62 6e 65 09 40 63 0d 09 | 09 69 6e 63 09 61 70 74 |bne.@c..|.inc.apt|
|00004570| 72 2b 31 0d 40 63 09 09 | 74 61 79 0d 09 09 6c 64 |r+1.@c..|tay...ld|
|00004580| 61 09 76 73 6c 2c 78 0d | 09 09 72 74 73 0d 09 09 |a.vsl,x.|..rts...|
|00004590| 65 6e 64 70 0d 0d 2a 2a | 2a 0d 0d 09 09 65 78 70 |endp..**|*....exp|
|000045a0| 6f 72 74 09 76 70 75 74 | 65 6c 65 6c 0d 76 70 75 |ort.vput|elel.vpu|
|000045b0| 74 65 6c 65 6c 09 09 70 | 72 6f 63 0d 09 09 65 78 |telel..p|roc...ex|
|000045c0| 70 6f 72 74 09 70 75 74 | 65 6c 65 6c 2c 20 70 75 |port.put|elel, pu|
|000045d0| 74 6e 65 78 74 65 6c 65 | 6c 0d 09 09 6c 64 61 09 |tnextele|l...lda.|
|000045e0| 76 73 6c 2c 79 0d 09 09 | 70 68 61 0d 09 09 6c 64 |vsl,y...|pha...ld|
|000045f0| 61 09 76 73 68 2c 79 0d | 09 09 74 61 79 0d 09 09 |a.vsh,y.|..tay...|
|00004600| 70 6c 61 0d 0d 70 75 74 | 65 6c 65 6c 09 09 63 6c |pla..put|elel..cl|
|00004610| 63 0d 09 09 61 64 63 09 | 61 72 72 61 79 6c 6f 63 |c...adc.|arrayloc|
|00004620| 33 6c 0d 09 09 73 74 61 | 09 61 70 74 72 0d 09 09 |3l...sta|.aptr...|
|00004630| 74 79 61 0d 09 09 61 64 | 63 09 61 72 72 61 79 6c |tya...ad|c.arrayl|
|00004640| 6f 63 33 68 0d 09 09 73 | 74 61 09 61 70 74 72 2b |oc3h...s|ta.aptr+|
|00004650| 31 0d 70 75 74 6e 65 78 | 74 65 6c 65 6c 09 6c 64 |1.putnex|telel.ld|
|00004660| 61 09 76 73 6c 2c 78 0d | 09 09 6c 64 79 09 23 30 |a.vsl,x.|..ldy.#0|
|00004670| 0d 09 09 73 74 61 09 28 | 61 70 74 72 29 2c 79 0d |...sta.(|aptr),y.|
|00004680| 09 09 69 6e 63 09 61 70 | 74 72 0d 09 09 62 6e 65 |..inc.ap|tr...bne|
|00004690| 09 40 61 0d 09 09 69 6e | 63 09 61 70 74 72 2b 31 |.@a...in|c.aptr+1|
|000046a0| 0d 40 61 09 09 72 74 73 | 0d 09 09 65 6e 64 70 0d |.@a..rts|...endp.|
|000046b0| 0d 2a 2a 2a 0d 0d 09 09 | 65 78 70 6f 72 74 09 76 |.***....|export.v|
|000046c0| 70 75 74 65 6c 65 0d 76 | 70 75 74 65 6c 65 09 09 |putele.v|putele..|
|000046d0| 70 72 6f 63 0d 09 09 65 | 78 70 6f 72 74 09 70 75 |proc...e|xport.pu|
|000046e0| 74 65 6c 65 2c 20 70 75 | 74 6e 65 78 74 65 6c 65 |tele, pu|tnextele|
|000046f0| 0d 09 09 6c 64 61 09 76 | 73 6c 2c 79 0d 09 09 70 |...lda.v|sl,y...p|
|00004700| 68 61 0d 09 09 6c 64 61 | 09 76 73 68 2c 79 0d 09 |ha...lda|.vsh,y..|
|00004710| 09 74 61 79 0d 09 09 70 | 6c 61 0d 0d 70 75 74 65 |.tay...p|la..pute|
|00004720| 6c 65 09 09 61 73 6c 09 | 61 0d 09 09 62 63 63 09 |le..asl.|a...bcc.|
|00004730| 40 61 0d 09 09 69 6e 79 | 0d 40 61 09 09 63 6c 63 |@a...iny|.@a..clc|
|00004740| 0d 09 09 61 64 63 09 61 | 72 72 61 79 6c 6f 63 33 |...adc.a|rrayloc3|
|00004750| 6c 0d 09 09 73 74 61 09 | 61 70 74 72 0d 09 09 74 |l...sta.|aptr...t|
|00004760| 79 61 0d 09 09 61 64 63 | 09 61 72 72 61 79 6c 6f |ya...adc|.arraylo|
|00004770| 63 33 68 0d 09 09 73 74 | 61 09 61 70 74 72 2b 31 |c3h...st|a.aptr+1|
|00004780| 0d 70 75 74 6e 65 78 74 | 65 6c 65 09 6c 64 79 09 |.putnext|ele.ldy.|
|00004790| 23 30 0d 09 09 6c 64 61 | 09 76 73 6c 2c 78 0d 09 |#0...lda|.vsl,x..|
|000047a0| 09 73 74 61 09 28 61 70 | 74 72 29 2c 79 0d 09 09 |.sta.(ap|tr),y...|
|000047b0| 69 6e 63 09 61 70 74 72 | 0d 09 09 62 6e 65 09 40 |inc.aptr|...bne.@|
|000047c0| 62 0d 09 09 69 6e 63 09 | 61 70 74 72 2b 31 0d 40 |b...inc.|aptr+1.@|
|000047d0| 62 09 09 6c 64 61 09 76 | 73 68 2c 78 0d 09 09 73 |b..lda.v|sh,x...s|
|000047e0| 74 61 09 28 61 70 74 72 | 29 2c 79 0d 09 09 69 6e |ta.(aptr|),y...in|
|000047f0| 63 09 61 70 74 72 0d 09 | 09 62 6e 65 09 40 63 0d |c.aptr..|.bne.@c.|
|00004800| 09 09 69 6e 63 09 61 70 | 74 72 2b 31 0d 40 63 09 |..inc.ap|tr+1.@c.|
|00004810| 09 74 61 79 0d 09 09 6c | 64 61 09 76 73 6c 2c 78 |.tay...l|da.vsl,x|
|00004820| 0d 09 09 72 74 73 0d 09 | 09 65 6e 64 70 0d 0d 09 |...rts..|.endp...|
|00004830| 09 65 6e 64 00 00 00 00 | 00 00 00 00 00 00 00 00 |.end....|........|
|00004840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004880| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00004890| a0 2a 20 29 00 3c 67 04 | 20 40 4e d0 20 5f de fc |.* ).<g.| @N. _..|
|000048a0| 00 14 4e d0 00 00 00 ac | 60 0a 00 00 4c 44 45 46 |..N.....|`...LDEF|
|000048b0| 04 72 74 2e 61 f9 02 00 | 00 00 54 45 58 54 4d 50 |.rt.a...|..TEXTMP|
|000048c0| 53 20 01 00 00 00 01 40 | 51 47 00 00 26 28 00 00 |S .....@|QG..&(..|
|000048d0| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 00 01 40 |..TEXTMP|S .....@|
|000048e0| 51 47 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |QG......|........|
|000048f0| 00 00 a0 57 27 c9 00 00 | 47 b4 00 00 01 7e 28 6e |...W'...|G....~(n|
|00004900| 00 14 2f 14 2f 2b 00 0c | 48 6f 00 04 a8 7e a8 93 |.././+..|Ho...~..|
|00004910| a8 9e 24 6b 00 50 20 4a | 4a 78 02 8e 6b 06 a0 69 |..$k.P J|Jx..k..i|
|00004920| 1f 00 60 02 1f 10 a0 29 | 2f 0c a8 a3 36 2e 00 0c |..`....)|/...6...|
|00004930| 6f 0a 2f 12 3f 2e 00 0e | 3f 03 a8 85 20 4a 4a 78 |o./.?...|?... JJx|
|00004940| 02 8e 6b 06 10 1f a0 6a | 60 02 10 9f 4a 2e 00 18 |..k....j|`...J...|
|00004950| 66 9e 60 8e 00 00 00 10 | ff ff 31 01 ff fe 46 01 |f.`.....|..1...F.|
|00004960| 00 00 42 01 00 00 00 00 | 00 00 00 86 00 01 00 00 |..B.....|........|
|00004970| 00 01 02 03 04 05 06 07 | 08 09 0a 0b 0c 0d 0e 0f |........|........|
|00004980| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 3e 06 63 |...H..Mo|naco.>.c|
|00004990| 00 01 00 30 06 03 00 1c | 00 30 3e 67 80 1d 00 30 |...0....|.0>g...0|
|000049a0| 66 63 00 14 00 3c 00 06 | 00 09 00 32 00 10 01 ba |fc...<..|...2....|
|000049b0| 02 3f 00 32 00 10 01 ba | 02 3f a1 a8 0e 00 00 00 |.?.2....|.?......|
|000049c0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|000049d0| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 19 86 3c |...L...L|...2...<|
|000049e0| 04 6a 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.j.....2|..MPSR..|
|000049f0| 00 0a 03 ed ff ff 00 00 | 00 00 00 1a bf 68 00 00 |........|.....h..|
+--------+-------------------------+-------------------------+--------+--------+